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' SECTION 1 
MEET THE AP... .es oon 


1.1 INTRODUCTION . 


The purpose of this manual is to illustrate the way to use the 
AP most efficiently, i.e., to write good loops. It assumes that 
the reader has already read the Processor Handbook (especially 
Section 3) and the Software Development Package Manual (APAL, 
Sections 2 and 3), and has at least a passing acquaintance with 
the AP instruction set. . 


The first section presents a short review of the basic elements 
of the Array Processor from the programmer's point of view. 

The second section covers methods and techniques of writing loops. 
The third section consists of a set of common pitfalls to avoid. 


The review in this section of the basic AP instructions is not 
meant to be all-inclusive. It is intended to briefly cover 
the most-often-used things. Further details can be found in 
the other manuals.: 


This manual assumes the use of the AP's 333ns interleaved memory . 
1.2 BASIC OVERVIEW 


1.2.1 Arithmetic. Both the Floating Adder and Floating Multiplier 
need explicit instructions (e.g., FADD and FMUL, respectively) to 
push their respective answers out of the pipelines. Given these 
"pushers", the Floating Adder result (FA) will be available 2 

cycles after the original instruction, and the Floating Multiplier 
result (FM) will be available 3 cycles after the original instruction: 


anes FADD DPX,DPY "add ae a FMUL DPX,DPY "multiply 
1. FADD "push 1.: FMUL i piSh 
2.° DPX¢€1)<FA | "store answer. 2. FMUL  "yush 
— 3. DPY(1)<FM.- "store answer 


The empty “FADD and FMUL pudneuel can also be real A:lder or 
Multiplier operations, thus producing new answers each cycle. 


If the "pushers" do not directly follow the original instructions, 
FA will come out 1 cycle after the first FADD pusher, and FM will 
come out 1 cycle after the second FMUL pusher. Both FA and FM will 
remain available for succeeding cycles until a new FA or FM is 
pushed out. . 


The arguments for Adder and Multiplier instructions consist of one 
from column A and one from column B, (in that order): 


COLUMN A (Al or M1). COLUMN B (A2 or M2) 
FM FA. 
TM MD 
DPX DPX 


DPY 


DPY 


The Adder has additional arguments of ZERO and NC (no change), which 
can be See in either or both columns. 


1.2.2 Main Data enor: neaavine from memory requires one of the 
following instructions: SETMA, INCMA, DECMA, or LDMA. In practice, 
it is usually done by the SETMA instruction. The result, MD, comes 
out three cycles later. and is also available for succeeding cycles 
until a new MD comes out. No "pushers" are needed... Writing into 
memory requires one of the above instructions plus MI<source, where 
source is FA, FM, or DB. -_This goes on the same line as SETMA, and 
gets done in that cycle. Memory can be referenced eNeEY 2 cycles, 
for either a read or write. | 


1.2.3 Table Memory. Table memory is usually referenced by the 
SETTMA or LDTMA instruction. Two cycles later, TM is available 
and remains so until 2 cycles after the next instruction affecting 
TMA. Such instructions can occur in every cycle, producing a new 
TM every cycle. 


1.2.4 Data Pad. DPX and DPY each contain 32 registers, 8 of which 
are accessible from any given DPA. That is, one can reference DPX 
from DPX(DPA-4) to DPX(DPA+3), and similarly for DPY. 


The Data Pad Bus is usually used to store data from memory or from 
one Data Pad register into another, or to utilize a value, e.g., 
in conjunction with a load operation: 


DPX(1)<DB; DB: =DPY(-2) (This can be shortened to 
- BPX(1)<DPY(-2).) | 

ery DB=MD 7 (Or DPX<MD) 

LDDPA; DB=3. , (This sets DPA=3) 


Storing into Data Pad from FA or FM does not use the Data Pad Bus. 
This is important, as it leaves DB free for other uses. 


1.2.5 S-Pad. S-Pad registers are usually used as address pointers 
or counters, and thus to pass parameters to a program. An S-Pad 
operation must accompany a SETMA (or SETDPA, SETTMA, etc.) 
instruction. An S-Pad operation must also precede a conditional 
branch (BGT, BNE, etc.) by one cycle. That is, conditional 
branches are based on the S-Pad Function (SPFN) of the S-Pad 
Operation in.the previous cycle. 


The fastest way to get an integer into S-Pad is to use the LDSPI 
instruction: LDSPI COUNT; DB=5 

This puts 5 into an S- Pad register called COUNT. The value is 
assumed to be octal unless a decimal point is added. 

DB=15. (note point) is equivalent to DB=17 (octal), or to 

DB=QFX (Chex). Hexadecimal numbers must start with a numeric digit 
and end with "X",. 


Although the Floating Adder operation FSUB A1,A2 will do Al-A2, the 
-S-Pad operation SUB subtracts in the ees direction, i.e., 
SU8 PIECE,TOTAL will do: 


(contents of S-Pad TOTAL) minus * ‘(contents of S-Pad PIECE). 
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1.3 REFERENCING MEMORY 


In order to read something out of memory, or write into it, the 
location in memory where this will occur must be provided. The 

' SETMA instruction gets this necessary information from the S-Pad 
Function (SPFN) of the same cycle. Therefore, one needs to 
construct an S-Pad operation which will result in a pointer 

to the appropriate memory location. Generally this takes the 
form of adding increments to pointers. For example, if there 
was a 4-element vector in memory locations 100, 102, 104, 106, 
one would need an S-Pad register (say, APTR) containing the | 
base address (100), and another S-Pad register (AINC) containing 
the increment between elements (2%. Then, if one wanted to read 
the element in- location 102,. the appropriate instruction would be 
ADD AINC,APTR; SETMA. Now APTR would contain 102. If one wrote 
another ADD AINC, APTR; SETMA the contents of memory location 104 
would be read. 


Cone idee the following instruction: MOV APTR,APTR. This doesn't 
seem to accomplish much, but in the light of the above discussion, 
it can be seen that its SPFN could be useful for a SETMA. This 

is how one would get the first element of a vector. 


All of tne above is correspondingly true Lor writing into memory. 
1,4 S-PAD MNEMONICS | 


S-Pad names such as APTR, AINC, N are really only temporary names 
for the 16 S-Pad- registers. A statement such as DEC N will not 
mean anything to the assembler unless the program has equated 
the mnemonic '"N" with a specific S-Pad register, such as S-Pad 

O. This is done by the following assembler pseudo- OD: N $EQU 0. 
All S-Pad names used in a program must be declared in this 

manner before using them in an instruction. Thus, programs 
gonerensy begin with lists. like: 


APTR $EQU 0 
AINC $EQU 
BPTR $EQU 
 BINC $EQU 
aN = aea 


BON H 


These S-Pad numbers should not be confused with the contents of the 
S-Pads. ADD BINC,BPTR would not add 3 to 2 (using the above list), 
but would add: the contents of S-Pad 3 to the contents of S-pad 2. 


There can be more than one name for an S-Pad register. If you 
had 2 different vectors, A and B, and wished to use the mnemonics 
AINC and BINC for their increments, you could use the same S-Pad 
register if-the Increment. for both is the Same in all cases, “by 

. Geclaring: 


siege 1 on * 
BINC $EQU 1. 
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To. “OTHER PSEUDO-OPS 
Besides the $EQU pseudo-op, the typical program includes STITLE and 
$ENTRY pseudo-ops at the very beginning, and an $END at the very 
end. A basic program with one lovp would have the following form: 
$TITLE name 
ae SENTRY name 
_ §-Pad mnemonic $EQU 9 
: . : : mae 
2 


name: (code) 
"! mr 


me : ("intro' to lwop and any initializations 
x | and pointer adjustments) 


SEND 


‘See the software manual for explanations of these pseudo-ops. 


SECTION 2 
LOOPS 


2.1 A POOR LOOP 


The loop is where the potential of the AP comes into full bloom. 
For example, one way (lengthy but workable) to write a dot 
product program is as follows: 


Given: Vectors A and B in Main Data memory, with elements of 
. each vector in equally spaced locations in memory (e.g. 
ens numbered locations). 


Produce: N 
Ca Am-Bm 
m=1. 


Parameters passed in S-Pad:' 


S-Pad Name Contains: 
APTR base address of vector A 
BPTR base address of vector B 
XINC increment (number of locations from one 
. element to the next) (same for both vectors) 
N | number of elements in each vector 
CPTR address of answer 


DOTPROD:SUB XINC,APTR (*see below) 
_ ' SUB XINC,BPTR (*see below) 


' FADD ZERO, ZERO "initialize FA=0. 
| FADD | i“ 
~ LOOP: ADD XINC, APTR; ‘SETMA get mth element of vector A 
“NOP. . from memory 
NOP 
DPX<MD "MD=Am, store into DPX 
ADD XINC,BPTR; SETMA "get mth element of vector B 
NOP . 
NOP _ 7 
FMUL DPX,MD "MD=Bm, do Am.Bm 
FMUL 
FMUL ; ra - | 
FADD FM, FA | "add product to sum of products 
FADD. : | . 
DEC N | "decrement counter 


BGT LOOP “branch, back it not done yet 
. "Cle, Li NSO) 
DONE: MOV CPTR,CPTR; SETMA; MI<FA 
"otherwise, store answer 


*This is so that the first time through the loop, ADD XINC,APTR and 
ADD XINC,BPTR will not move the pointer to the second element, 


passing up the first altogether. 


To begin with, this program can certainly be shortened by combining 
instructions and overlapping memory fetches. Thus: 


DOTPROD: FADD ZERO,ZERO:; SUB XINC,APTR 
} FADD; SUB XINC,BPTR 


“LOOP: ADD XINC,APTR; SETMA "get Am 
NOP —_ 
ADD XINC,BPTR; SETMA “get Bn 
DPX<MD "store A, in DPX 
NOP | | 
 FMUL DPX,MD "do An: Bm 
FMUL . 
FMUL a. 
FADD FM,FA; DEC N "add prod to sum of products 
| "and decrement counter | 
FADD; BGT LOOP "test if done. If not, branch 
. ar to LOOP 


DONE: -: MOV CPTR,CPTR; SETMA; MI<FA 
"if so, store answer 


Note the extra FMUL's and FADD's, described as "pushers." These 
‘push the answers through the pipelines, so that FM and FA will 
contain what they are intended to contain. This is pointed out 
because the beginning AP programmer is likely to forget to put 
"pushers" in his code. | 


Now the loop of the evolving dot product program is 10 cycles long. 
This means that each new pair of elements costs 10 more cycles. 
Although better than the initial example, which had a 14-cycle 
loop, this can actually be cut down to a mere 4 cycles! 


2.2 DETERMINING LENGTH OF LOOP 


One might suppose that the length of a program loop depends on 
what one is trying to do. This is true, but not in the way one 
would think. The AP programmer decides ahead of time how many 
cycles his loop should contain, and then fits everything into 

that framework. How does he pick the magic number? Most 
commonly, loops are memory-limited. Recall that one can reference 
memory (to read or to store) every 2 cycles. If one has 2 memory 
references to do (e.g., "get A' and "get B!'), then the loop will 
be at least 4 cycles long (2 per memory reference). And, unless 
one has more than 4 different FWUL's, 4 different FADD's, or 4 
different S-Pad operations to do, the loop should be, at most, 4 
cycles. A lot can be done in 4 cycles when one can do a Floating 
Multiplier operation, a Floating Adder operation, an S-Pad 
operation, a branch, a Memory PEEGEENCES a Data Pad Bus transfer, etc., | 
in each cycle. 


2.3 WRITING A REAL MEY MEMORY-LIMITED LOOP 


Before continuing with the transformation of the dot product 
program, another sie oa wate be utilized. 


Given: Vectors A and ia in ein Data memory, length= N elements 
Produce: Vector C (in memory), where 
C =A“+B for m=1 to N 


Parameters: S-Pad Name Contains © 
APTR base address of A 
BPTR base address of B 
CPTR base address of C 
XINC increment (same for all vectors in this 
example) 
 N . number of elements 
Note that there should be 3 memory references in the loop: "get A", 
“get B', and "store C"'. (Unlike the dot product which accumulated 


a running sum in the Adder, this program needs to store an answer 
after each set of computations. For the dot product, storing was 
not a repeated process, and hence not included in its loop). Three 
memory references, one every other cycle, means the loop would be 
‘6 cycles long. “It would start like this: : 


1) ---(nothing here, but count a cycle) 


2) ADD ‘XINC,APTR; SETMA "get. A 

3S) --- | | = — | 

4) ADD XINC,BPTR; SETMA (Bet B®. | 
5) DPX<MD ~~ ... “store A- in DPA 
6) FMUL DPX,MD — "do A*A 


(The reason for starting on the second line will be explained later.) 


Now it has run out of cycles, but there is still more to do, so it 
starts back up at the first cycle. which is where the end will 
branch to, when it gets around to testing if it's done. 


—_ 


| ae aa 
LOOP: 1) =—= | 7 EMU 3° '"B is available here, 
- "not needed yet 
2) ADD XINC,APTR; SETMA MUL 
oy .eaa aie FADD FM,MD “add B to A2 


Jf 
4) ADD XINC,BPTR; SETMA / PADD 
/ 


“but 


5) DPX<MD , [DEC N "answer is available here 


/ 


6) FMUL DPX, MD a ADD XING, CPTR; SETMA; MI<FA; 
: < _ | ' BGT LOOP "store answer and 
pam ee | " if 
This is the entire loop. In its proper: oe taking out lines and 


adding semicolons, it looks like this: 


LOOP: FMUL 


ADD XINC,APTR; SETMA; FMUL 
FADD FM, MD 


ADD XINC, BPTR; SETMA; PADD 
DPX<MD; DEC N 
FMUL DPX, MD; ADD KINC, CPTR; SETMA; MISPA; BGT LOOP 


2.4 WRITING INTROS 


Notice, however, that if the program goes right into this loop, 
after initial overhead such as SUB XINC,APTR 

SUB XINC,BPTR 
SUB KINC, CPTR 
it picks up the first element of A and B as it's supposed to, 
but it also stores something into C before it's ready to, and 
decrements the counter too early. It goes through both columns 
at the same time. What is-.desired, however, is that computations 
in the second column continue from the first column. The only . 
way it can do this is to continue from what the first column did 
in the previous time through the loop. And the first time, there 
‘was no previous time. Hence the need for additional microcode 
before getting into the loop. 


Exactly what needs to go before the loop? In order for the second 
column of the loop to be doing what it's supposed to when the 


but can't reference mem. 


| | 'vet to store it 


program gets to it, the first column must precede it. Essentially, 
one rewrites the first column as an "intro" to the loop. Thus: 


PROGRAM: : (MOV APTR,APTR; SETMA "get first element 
SUB XINC,CPTR_ | "0 ee ADD in loop 
MOV BPTR,BPTR; SETMA "get first element | 
DPX<MD _ 7 eters A(1) in DPX 
| FMUL DPX, MD | "do ACL)? 
LOOP: — | -PMUL | 
ADD XINC,APTR;.SETMA; — FMUL . "get A(m+1) 
| PADD FM,MD | "do A(m)?+B(m) 
ADD XINC,BPTR; SETMA; FADD F | "set B(mtl1) 
DPX<MD; DEC N ; » "store A(m+l1) 
-FMUL DPX,MD; — | ADD XINC,CPTR; SETMA; MI<FA; BGT LOOP 


"do A(mt+1)“,:> store 
"C(m), test if done 


DONE: RETURN © 


To clear up a’ loose end regarding the structure of memory-limited 
loops, one might notice that since the branch must be in the last 
eycle, the DEC N instruction must be in the second-to-last cycle. 

DEC is an S-Pad operation and cannot be in the same cycle as another 
S-Pad operation, such as ADD XINC,XPTR. A memory-limited loop has 
SETMA's (requiring S-Pad operations) on every other line. Since the 
DEC N operation will go on an odd-numbered line of the loop, the 
SETMA's must go on even-numbered lines. This is why the first 

thing to do, ADD XINC,APTR; SETMA (see section 2.3), was put on line 2. 


2.9 A DOT PRODUCT PROGRAM 


It is now possible to write the 4-cycle dot product. Using the 
technique outlined above, the loop should be constructed as follows: 


AE eee Se ON Pepe CD Aare cere eee 
2 ADD XINC,APTR; SETMA "get A 


Z ADD XINC,BPTR; SETMA “get B 


then 


~ ! 


Ty) --- ")DPX<MD +‘“store A 


a ss | | 
f? ADD XINC,APTR; SETMA Wie es oe 
nN é z . 
) --- | eejaee DPX,MD "do A-B 
f) ADD XINC,BPTR; SETMA: | FMUL 

A | 


i: 


: then 
7 ee | DPX<MD ~FMUL 
2 ADD XINC,APTR; SETMA 1 | --- ,{ FADD FM,FA "add A-B to sum of 
| ae: | | "products | 
3) <-= E i \ | FMUL De ees DEC N’ "decrement counter 
. ee | 

4) ADD XINC,BPTR; SETMA | ; PMUL ; |BoT LOOP. "test if done 

a oe oe \ z aac 


~ ad — 


The intro to this 3-column loop will consist of the first column 
alone, then the first and second column together. Other overhead, 
such as initializing FA to 0, can be mixed in with the intro. 


To generalize, an N-column loop would require an intro consisting 
of column 1] followed by columns 1 and 2 together, followed by columns 
eg 2, and 3 together.... followed by columns 1, 2,..,N-1 together. 


$TITLE DOTPROD 
SENTRY DOTPROD 


APTR SEQU 


o2 
-BPTR $EQU 1 
CPTR $EQU 2 
XINC SEQU 3 
N . $EQU 4 | 
DOTPROD: MOV APTR,APTR; SETMA; FADD ZERO,ZERO - "get.A(1) and. 
a | "initialize FA=0 
MOV BPTR beIE? SETMA; FADD _ "set B(1) 
DPX<MD . | a ae "store A(1) 
ADD XINC,APTR: SETMA Se | "eet A(2) 
FMUL DPX,MD - | : . "do A(1)*B(1) 
ADD XINC,BPTR;. SETMA;  FMUL "set BC2) 
LOOP : DPX<MD; FMUL ¢ «5% "store A(mtl) 
ADD XINC,APTR; SETMA; FADD FM,FA i. "set A(m+2), add 
| | . "A(m)B(m) to sum 
FMUL DPX,MD; FADD; DEC N . "do A(m+1)B(m+t1) 
| . | "decrement counter 
ADD XINC,BPTR; SETMA; FMUL; BGT LOOP "set Bc(m+2), test if 
| | | beat . "done 
DONE: OV CPTR,CPTR; SETMA; MI<FA; RETURN , "if so, store answer 


“END 


Now each new pair of elements will only cost 4 more cycles, because 
every « cycles a new pair are being fetched; every 4 cycles another 
product is added to the sum. The longer overhead is no disadvantage 
as it is only done once, and even if the program was called with N 
containing 1, making the streamlined loop unnecessary, it takes no 
longer than the unstreamlined program. 


Note that there are 2 SETMA's in a row at the beginning and again 
at the end of the program. This will not cause any problems except 
to.make memory spin, which is the memory's way of putting 

in the NOP's the programmer leaves out. The timing is still the 
same, and this way there are 2 less locations of Program Source 
-used up... . . 3 


It might be mentioned that if one were getting Vectors A and B out 


of Data Pad instead of memory, the dot product could be written 
with a 1l-cycle loop! This will be demonstrated later. 
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2.6 NOTATION 


A few words about notation are in order. The "---" used when 
writing loops in column form simply denotes a blank spot, 
indicating a cycle goes by while awaiting the results of a. 
memory fetch or while looking for a more propitious soot to use 
the results of the Adder or Multiplier, etc. Normally, something 
else will eventually go on the same line, in a different column. 


Example: This takes vector A, multiplies it by a constant in 
DPX, and stores it in vector B. 


ea 7 FMUL DPX, MD 


2) ADD XINC,APTR; SETMA  ? : FMUL 
2? | po FMUL: DEC N 
a : _| ADD XINC,BPTR; SETMA; MI<FM; BGT LOOP 


ae mate -_ 


Since the length of the loop was already jactaea by the number of 
SETMA's, these blank spots cause no harm to the speed. It is 

the number of cycles in the loop, not the number of columns, which 
determines speed. Extra columns simply mean longer intros, which 
the program only goes through | once anyway unless it's part of a 
nested loop. 


In loops with several Adder or Multiplier operations, it often 


happens that one such instruction will be a "pusher" for another 
in another column. 


1) Ceode) FMUL DPY,MD (code) 


Zz) "  FMUL DPX, DPY FMUL 

3) "  FMUL FMUL me 
3) " FMUL | % DPY<FM. a 
5)" DPX(1)<FM | | " 
6) j : , | _ : 


In column 2, lines 2 and 3 are illegal, as those lines already 
contain FMUL's (which will do the pushing for column 2 as well 

as column 1). However it may be advantageous to the 
programmer to note to himself somehow that FMUL's do belong there, 
in case things in the first column get moved around for some 
reason. This is the purpose of. such notation as (fmul) or (fadd). 


ay. -% (code) ~ FMUL DPY, MD code) 
2) " FMUL DPX, DPY Cfmul) ~— 

3) " FMUL. . (fmul ) . 

4) ' FMUL DPY<FM he 
2) '' DPX(1)<FM i 

6 ) tt Pw . "! 


Now, if pieces of the first column were moved down a couple 
of lines for some reason, 


I) (code) | - FMUL DPY,MD (code) DPX(1)<FM 
oy 7 : | (fmul ) | 
3) y (fmul) " 
4) " FMUL DPX, DPY DPY<FM it 
5) " FMUL | | a 
) tt FMUL : 7 tt 


the programmer would be reminded to put real FMUL's back on 
those lines. 


When writing loops with a small number of cycles, these reminders 
can also help one keep track of the columns, as in: 


a ao SORE G95 277 1108 FMUL FADD FM,FA; DEC N 


ADD ADD_XINC, APTR; SETMA | Eat FMUL DPY, MD, (mul) _{ FADD; BGT LOOP 


- 


This gets a vector from memory, squares each element and adds the 
squares together (sort of a dot product between vector A and itself). 
The seemingly empty columns, which disappear when the loop is 
written in proper form (see below), are necessary in order to write 
the intro properly. If one left out the second column, for example, 
his intro would start with: 


MOV APTR,APTR: SETMA 
DPY <MD | 
ADD XINC,APTR: SETMA: FMUL DPY,MD 


Clearly, the first MD will not be the first element fetched. By 
the time it gets down to FADD FM,FA in the loop, something which 
doesn! t belong will be added in. | 


This 


LOOP: 


is what the intro and loop should 


MOV APTR,APTR; SETMA 

FADD ZERO, ZERO ~ 

ADD XINC,APTR; SETMA; FADD 

DPY<MD 

ADD XINC,APTR; SETMA; FMUL DPY,MD 
DPY<MD; FMUL . . 
ADD XINC,APTR; SETMA; FMUL DPY,MD 


DPY<MD; FMUL; FADD FM,FA; DEC N 


ADD XINC,APTR; SETMA; FMUL DPY,MD; 


(answer)<FA 


9. 


look like: 


"initialize FA=0 


FADD; BGT LOOP 


2.7 DROPPING OUT ONE EARLY 


i See wo ep ee (code ) : (code) 
2) ADD XINC,APTR; SETMA aan . i 
3) (code) as oo: : oS ee 
4) ADD XINC,BPTR; SETMA = ae 
5 ) (code) be . 
6 ) | ADD XINC,CPTR; SETMA ‘ 


Ey gee _ 2 "3 - (code) “" DEC N | 
3) " be ee | ADD XINC,DPTR; SETMA; 
a MT <DPX; BGT LOOP 


Here, there are 2 memory reads in the first column, one read in the. 
second column, and a store in the last column. When writing the 
intro, the pointers should be taken care of as follows: 


“MOV APTR,APTR; SETMA 
SUB XINC,DPTR; (code) 
MOV BPTR,BPTR; SETMA | 
- (code) 


“ADD XINC,APTR; SETMA; (code) 
(code) ; m 
ADD XINC,BPTR; SETMA; u 
(code) e 
_ : MOV CPTR,CPTR; SETMA 
" (code) 


a 


If the memory reference in the second column of the loop was a 
store instead of a read, the problem would become more complicated. 
By the time the counter went down to zero and the last result was 
stored at DPTR, an extra C would have been stored, possibly over 

a valuable piece of data, such as the beginning of vector D. Or 

if instead of ADD XINC,CPTR; SETMA; MI<DPY in the second column, 

we had “PY<FA (where FA.is cumulative, as in the dot product) and 
later stored DPY into CPTR after getting out of the loop, an extra 
FA would have been computed and DPY would contain an incorrect. 
answer. In this case, it would be wise to drop out of the loop 
one time early. One would put an extra DEC N somewhere in the 
intro, so that the loop would be done N-1l times. Then, after the 
loop, write just the last column (not including DEC and the branch, 
of course), which is all that remains to be done from the loop 
anyway. - 


Example: This does a dot product of vectors A and B, and also. 
outputs the square of each updated sum into vector D. 


a G2 8S 
ea aac RE NR fr tr ttn A At AEE RAY 


= Ss 3 ~~ FMUL DPX, MD aes 


ADD XINC,APTR; SETMA — ° (fmul ) . ' FMUL DPY,DPY 
= FMUL * -Cfmul) 

ADD KENC: BPTR; SETMA | : FADD FM,FA » FMUL 

DPX<MD ; FADD DEC N 


ese . > DPY<FA ; ADD XINC,DPTR; SETMA; MI<FM; 


x 


~ 
= - 


When it is going through the loop for the last time and storing 
'the very last thing in D (column 3), it is also simultaneously 
doing extra executions of columns 1.and 2. Normally, that doesn't 
matter, but in this case, something extra is being added to the 
cumulative sum of. the dot product. (column 2), which was completed 
the previous time through the loop. By dropping out of the loop 
before its last time around, this error is avoided: . 


MOV APTR,APTR; SETMA 


DEC N "to cause dropping out early 
MOV BPTR,BPTR; SETMA | | 

DPX<MD - . 

SUB _XINC,DPTR __ "to nullify the first ADD XINC,DPTR 

noe FMUL DPX, MD - . 

ADD XINC,APTR; SETMA; FMUL ; 

| FMUL 

ADD XINC,BPTR; SETMA; FADD FM,FA 

DPX<MD ; | FADD 

' DPY<FA. 

LOOP: FMUL DPX, MD ; 

ADD XINC,APTR; SETMA .FMUL DPY,DPY 

| FMUL 
ADD XINC,BPTR; SETMA; FADD FM,FA; FMUL 
DPX<MD; FADD; DEC N 
DPY<FA; ADD XINC,, DPTR; SETMA; MI<EM; 
| BGT LOOP 
OUT: - ead . FMUL DPY,DPY 
MOV CPTR,CPTR; SETMA; MI<DPY; FMUL 
a FMUL 
ADD XINC,DPTR; SETMA; MI<FM; 
RETURN 


Notice that the (fmul) in column 2 became a real FMUL in the intro. 


OUT starts just the last column. The next line stores the 
COmpLeted: dot product. 
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One might wish to come out one early even if one doesn't strictly 
need to, if the loop is long and there are only a couple of lines 
' in the last column: . | 


1) (code) . (code) 
2). '" SETMA a 
3°) tf " : 
4) ie '"  SETMA; MI<DPX 
oe am ; 't 5 ‘ 
6) '" SETMA 
7) ! 
8). '"  SETMA 
9) " 
pikes) '  SETMA 
de he a DEC N 
12) ' SETMA BGT LOOP 


In this case, coming out of the ieee one time early and adding on 
the last 4 lines afterward would save going. PAEouss 8 cycles for 
nothing. : 


2.8 INTERACTION BETWEEN COLUMNS | 


In erdes Lo L1.0- thaines into complicated loops whut creating > 
op-code conflicts, the AP programmer takes advantage of results 
(e.g. MD, FA) which are the same for one or more cycles after it 
is first available. Sometimes he will purposely delay the 
pushing of.an answer through a pipeline by leaving out "pushers". 
But he must be careful of the way the columns interact with each 
other within the loop. 


1)  FMUL DPX, DPY 

2  FMUL DPY(3) , DPX(2) 
8) ; FMUL 

4) FMUL | 

5)  FMUL DPY(1)<FM 


6) DPX(1)<FM - ’ 


The FMUL's in column 2 will act as "pushers" for the FMUL DPX,DPY 
in column 1, whose answer will come out on line 4 instead of line 
6 as desired and will disappear forever when replaced by a new. 

FM on line 5. Notice the FMUL on line 4 in column 1 acts as a 
pusher for column 2, which was planned for. 


to 
«ip 
& 


Another example: 


1) (code) _ DPX<MD . Ceode) 

2) ADD XINC,APTR; SETMA ~. (code) | DPX<FA 

3) (code) — : FADD FM,DPX ' (code) 
a (code) . a0 


The DPX of column 2 line 3 will not be the same as what was stored 
into it in column 2, Line--1., It will be FA from column 3, line 2. 


2.9 CHANGING DPA 


Because one can access things in Data Pad much faster than 
things in memory, it makes sense to store things from memory 
into Data Pad if they will be used again. For example, if one 

is going to use an N-element vector for several different 
computations, one could store it in DPX(9), DPX(1),....,DPX(N-1). 
Because the Data Pad indices can only be accessed from -4 to +3 
with a static DPA, it becomes useful to leave the index alone 
and change DPA. : . 


Storing vector A in DPX is basically the repeated operation of 

‘DPX<MD; INCDPA. If DPA is initially set to zero, then the first 

element will be stored into DPX(0). INCDPA will increase DPA 

for the next instruction. .Thus: DPX<MD; INCDPA "refers to DPX(0) 
- —_ DPX<MD "refers to DPX(1) 


The ways to set DPA to zero: | 
CLR# (S-Pad name); SETDPA "uses up S-Pad field 
_DB=ZERO: LDDPA "uses up Adder field 
This loop will read a vector from memory into Data Pad X: 


aad 


~--- ee te DPX <MD; INCDPA; DEC N 
ADD XINC,APTR; SETMA  ! --- = BGT LOOP © 


~ 


With intro: 


“MOV APTR,APTR; SETMA 

CLR APTR; SETDPA 

ADD XINC,APTR; SETMA 

LOOP: DPX<MD; INCDPA; DEC N . 
ADD XINC,APTR; SETMA; BGT LOOP 
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2.10 NON-MEMORY-LIMITED LOOPS 


A non-memory-limited loop is a leop in which 2 times the number 

of memory references is less than the number of same-op-code-field 
operations required. For example, if there are 5 Floating Adder 
operations to be done (FADD, FSUB, FSUBR, etc.) but only 

2 memory references (a fetch and a store), the 5 Adder operations 
cannot fit into 4 cycles. 


Incidentally, "pushers" don't count in figuring out how many cycles 
are needed. In a 5S-cycle loop with 5 different Adder operations, 
the Adder instructions become each other's pushers. ) 


Recall that in memory-—limited loops, the first instruction in 
column 1 usually starts on line 2, to avoid S~Pad conflicts on the 
next-to-last line. (See last paragraph of Section 2.4). This is 
not necessary in: non- ~memory- limited loops. 


The following abies will test whether. each esas of a vector in 

DPY is. within the range between a maximum limit and minimum 

limit. If so, the element is added to a cumulative sum. The maximum 
limit is conveniently located in MD, and the minimum limit in FM, 

by the grace of whatever program uses this renee Neither FM nor 

MD change during this loop's execution. 


_FSUB DPY, MD “Brot BIGGER \ fadd) 
FSUB FM,DPY BGT SHALL. - DPX<FA: DEC N 
(fadd) INCDPA FADD DPY(-1),DPX , BGT LOOP 


Note that the BFGT instruction tests FA of the previous cycle. 


2.11 A 1-CYCLE LOOP 


For the l-cycle dot product, it is assumed that the vectors are 
already. in Data Pad, starting at DPX(0) and DPY(0O) (where DPA=0). 
Obviously, vectors longer than 32 elements’ cannot be handled this 
way (or can only be handled in segments of 32 or less). 


This is what the loop really looks like: 


FMUL DPX,DPY; INCDPA | (fmul) (fmul) FADD FM,FA; DEC N} (fadd) BOT LOOP 


The FMUL and FADD instructions become their own "pushers". 


pores 


PTITLE DOTPROD 
SENTRY DOTPROD 


N $EQU 0 "number of elements in each vector 
CPTR SEQU 1 "where to store answer 
DOTPROD: CLR# N; SETDPA "DPA=0 
'. FMUL DPX,DPY; “do A(1)*BC1) 
INCDPA; "DPA to 1 
DEC N. "set drop out early 
FuUL DPX, DPY; "do A(2)*B(2) 
- INCDPA "DPA to 2 
FMUL DPX, DPY; "do. AC(3)*BC3). 
INCDPA; "DPA to 3 
FADD ZERO, ZERO "init. FA=0 
FMUL DPX,DPY; "do A(4)*B(4) 
INCDPA; . "DPA to 4. 
FADD FM, ZERO; "AC1)BC1) in Adder 
DEC N "decrement counter 
LOOP: . FMUL DPX,DPY; "do A(m)*B(m) 
INCDPA ; "DPA to DPA+tl1 
FADD FM,FA;. "add A(m-3)B(m-3) to sum 
DEC N; "decrement counter 
BGT LOOP "test if done 
OUT: DPX<FA; FADD "store cumulative FA 
"FADD DPX,FA "add it to.other cumulative FA 
FADD . . 
MOV CPTR,CPTR; SETMA; MI<FA; "store answer 
RETURN . 
SEND 


This particular sort of loop has a problem with the Floating Adder, 
in that a cumulative FA needs at least 2 cycles to accumulate 

each new addition. Hence, the l-cycle loop is actually operating 
with 2 mutually exclusive cumulative FA's, interwoven with each 
other: Be . 


FADD FM,FA 
FADD FM, FA 


At the end of all this, they (the two strings of sums) need to be 
added to each other. (See OUT, the label after LOOP). 


This also. rneienees the practice of dropping out of the loop 
one time early. If it didn't drop out early, the last (unneeded) 
FADD FM,FA of the loop would push out one of the 2 cumulative 
FA's. By the next cycle it would be gone forever. By dropping 
out early, DPX<FA can be done before it's too late. i 


This line of reasoning can eventually lead one to the idea that 
the last column of the loop (see beginning of Section 2.11) is 
unnecessary, Since there is no way.for the Adder result to come 

out in time for the next FADD FM,FA. The FADD FM,FA of each of the 
two strings of cumulative FA's will push out the other string. So 
the loop need only be of the form: 


FMUL TS oone INCDPA ‘| ( fmul) Te DEC N |FADD FM,FA; BST LOOP 


This is one cclumn less than before, which means that there will be 
one column's worth (in this case, one line) less to put in the 
intro. t will also not be necessary to come out of the loon one 
time early, as there is no extra FADD IM,FA to push away something 
needed. It is still necessary to add the 2 cumulative FA's 
together at the end. 


STITLE DOTPROD 
SENTRY DOTPROD 


N SEQU 0 


CPTR $EQU 1 
DOTPROD: CLR N; SETDPA — '"DPPA=0 
_  FMUL DPX, DPY; "AC1)*BC1) 
. INCDPA; " DPA to 1 
FADD ZERO, ZERO '" initialize cum. FA=0 
FMUL DPX,DPY; "A(C2)*B(2) 
INCDPA; '" DPA to Z . 
FADD ZERO, ZERO '" initialize other cum. FA=0 
FMUL DPX, DPY; "AC3)*BC3) 
INCDPA; " DPA to 3 
DEC N ; 
LOOP: FMUL DPX,DPY; "ACm)*B(m) | 
INCDPA; . " DPA to DPA+1 
DEC N; eG " decrement counter 
FADD ‘FM, FA; " add A(m-3)B(m-3) to cum. FA 
BGT LOOP . '" test if done 
QUT: DPX<FA; FADD "store first cumulative FA 
_FADD DPX, FA Tee to other cumulative FA 
FADD 
MOV CPTR, CPTR: SETMA; MI<FA; "store answer 
RETURN | . 
SEND 


| SECTION 3 . 
CAVEAT PROGRAMMER - (Let the ‘Programmer Beware ) 


Bek: CALEING ANOTHER SUB-ROUTINE 


The JSR instruction allows one program to utilize ‘another program, 
for example the divide sub-routine (DIV). In order to do this, one 
must declare DIV external ($EXT DIV) so that the assembler and 
linker will know what to do with the otherwise undefined symbol. 
One must also save everything he will need when program execution 
gets back to his main program. Depending upon what was used in 
the called sub-routine, some things may remain untouched. Commonly 
one should not count on being able to leave things in the Adder or 
Multiplier. Parts of Data Pad may also be changed, or DPA may 
change. S-Pad will probably not remain inviolate. (Remember, it's 
the S-Pad register number, not name, which is important.) These 
things need to be checked before doing a JSR. 


3.2 OTHER THINGS TO WATCH OUT FOR 


The rest of this section consists of various short examples, 
cautions, and reminders. 


DPX<MD; DPY<DPX(1) 
Illegal. Data Bus is assigned ieee (The above is really 
DPX<DB; DB=MD; DPY<DB; DB=DPX(1).) - : 


DPX<MD; DPY<MD is legal. (DB=MD; DPX<DB; DPY<DB) 


DPX<FA; DPY<FM 
Legal. FA and FM don't use the Data Bus. 


DPX<FA; DPY<FM; DPX(1)<MD 
Illegal. Data Pad X is being written into twice (different 
indices). Within each cycle, there should be no more than one 
of. each of the following: 

write into DPX 

write into DPY 

read from DPX 

read from DPY 
The exception is when reading out of a Data Pad more than once 
but using the same index: 

FADD DPX, FA; FMUL DPX,FA; DPY(1)<DPX is legal. 

FADD DPY,DPY; FMUL DPY , DPY is legal, 

FADD DPX,FA; FMUL DPX(1), FA is not legal. 


FADD DPX ,DPY; DPY<MD 
The old value of DEM before MD replaces it, is used in the sum. 


DB=4; LDSPI XINC; LDDPA: DPX(2)<FM 
Both ‘DPA and the contents of XINC will ‘become 4, but the previous 
DPA is used in referencing DPX(2). 


SUB# XINC,APTR; BGT OUT 
Illegal. The # uses the condition field (branch). 


THE $END 
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SECTION 1 
INTRODUCTION 


APAL (Array Processor Assembly renee) is a cross- 
assembler written in Fortran IV which provides a two-pass 
assembly of symbolic coding for the AP-120B. 

- APAL is a conventional assembly language, and as such, 
Should pose no difficulties to programmers familiar with 
using assembly language on other computers. 

On typical 16-bit mini-computers, APAL requires approxi- 
mately 24K of available memory to operate as ‘Supplied. 


 ARAT: Tak 


INTENTIONALLY BLANK 


~APAL’ 1-2. 


SECTION 2 
BASIC SYNTAX 


2.1 CHARACTER SET 


_ APAL recognizes the following characters: 


- Alphabetic A thru Z@ 
Numeric | | g@ thru 9 | | 
Special +- * / . $ space tab = < 
| ae a eee oe 


2.2: SYMBOL NAMES 


Symbol names may be of any length, however only the 
first six characters of a name are Significant. The first 
character of a name must be an alphabetic character, the 
subsequent characters may be either letters of numbers. 


Examples: LOOP 
AG - 
STARTHERE 


Symbols are given a value in any of three ways: 


1. Being defined by a SEQU pseudo~op. 
2. Being used as a label. 
3. Being declared $EXTernal. 


2.3 TABLE MEMORY SYMBOLS 


A symbol with a value preset to the address of each of 
the constants in Table Memory ROM is predefined in APAL. 
These symbols all start with a "!'" to avoid conflict with 
any user defined symbol. They may be used in expressions 
in the same manner as ordinary symbols. ; 


A complete list of these symbols is in Appendix C. 
For example, to fetch PI from Table Memory, and add it to 
a number in DPX(2) 


LDTMA;: DB=!PI '"fatch PI from TM 


NOP © ; "Wait (or do something else) 
FADD TM, DPX(2) "Add PI to DPX(2). | 
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(2.4  NUMBERIC CONSTANTS 


. Numbers may be written in four radices: octal, decimal, 
binary, or hex. In each radix, a number may be either signed 

or unsigned. Unsigned numbers may range from @ to 65535. Signed 
numbers may range from —-32768 to +32767. The radix of a number 
is established by a radix identifying character which is written 
immediately after the number. Octal numbers are denoted by a "K" 
immediately following the number. Decimal is denoted by a, 
binary by a "B" and Hex by an "X"', The first digit of a hex 
number must be a numeric character. The default radix, if a 
radix identifier is not used, is octal. 


- Examples: Octal integers: 177777 
| -49727K 

» 40 

Decimal integers: 32767. 


~-191B 

Hex integers: | @ABCDX 
_ 123FX 

OCX 


Binary integers: 191911919B 


2.5 EXPRESSIONS 


Expressions may be used whenever a numeric value is required. 
Expressions are made up of operands and operators. . 


EO ek Operands. Operands may be symbol names, numeric con- 
stants, or the location counter, denoted by ".", 


Examples: TBLADR 
598X | 


2.5.2 Operators. Operators denote operations of addition (M4ity, 
subtraction ("-"), multiplication ('*"), or division (''/") upon 
a pair of operands. : 

Some sample expressions: — 
TBLADR + 37 
6 Fe Ds 
LOOP + 6 * A 


Expressions are evaluated from left. to right, modulo eee 
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DECLTION:-3 
SOURCE PROGRAM STATEMENTS 


APAL source statements may be divided into. three categories: 


Ls Comment statements 
ae Instruction statements 
3. Pseudo-op statements 


Comment statements allow program documentation, instruction 
‘statements contain the actual symbolic machine code, and pseudo- 
op's provide directives to APAL during the assembly process. 

APAL statements have a basically free format: spaces and 
tabs may be used as desired to improve legibility. 


3.1 COMMENT STATEMENTS 


Everything on a line after a quote mark (") is treated as a 


comment by APAL. A line which contains only comments or a line 
that is completely blank is a comment statement, and is ignored 
during the assembly process, Carriage return terminates a comment. 


3.2 INSTRUCTION STATEMENTS 


An APAL assembly language instruction statement has the 
general format of: 


Label: Op-code fields "Comments 


The label and comments are optional. The assembler processes the 
-op-code fields and generates one 64-bit pre? word for each 


instruction statement. 


3.2.1 Label Field. A label is a user-defined symbol which is 
assigned the value of the current location counter and entered 
into the user symbol table. A label is a symbolic means of 
refering to a specific location within a program. If present, 
a label always occurs first in an instruction statement and must 
be terminated by a colon. For example, if the current location 
is 76 the instruction statement: 


LOOP: FADD DPX. DEY: 2 _ "TOOP HERE 
Assigns the value of 76 to the symbol "LOOP". 
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3.2.2 Op-code field(s). The Op~code field follows the label field 
in an instruction statement and contains one or more AP-120B 
op-code mnemonic. Individual op-codes in an instruction 

are separated from each other by a semicolon ";", The last 

op~code in an instruction is not terminated by a “semicolon. 

This tells the assembler when it has reached the end of a 

complete AP-120B instruction statement. For example, both of 

the following instruction Statements are equivalent: 


LOOP: FADD DPX, DPY; FMUL TM, MD; BFGT DONE 
or 


LOOP: FADD DPX, DPY: 
| FMUL TM, MD: 
BFGT DONE 


Each is one instruction statement, which assembles into one 
64-bit instruction word. Thus, one instruction statement may be 
continued over as many ines as desired to achieve a readable 
program document. Instruction statements are terminated by. an 
op-code field which is not followed by a semicolon: not by the 
end of a line. 


Op-codes may be written in any order preferred within any 
given instruction statement. The assembler will flag with an 
error message any conflicts between op-codes. 

Some op-codes require operands as arguments. The operand(s) 
are separated from the op-code by a space or tab, and from each 
other by a comma, Some example op-codes: : 


No operands: HALT; RETURN 
One operand: FABS MD; BFGT LOOP 
Two operands: FADD DPX, DPY; FMUL TM, MD 


If an operand is missing or improper, the assembler will give 
an appropriate error message. 

A listing of the various AP-120B op-codes is contained in 
Appendix A. | 


3.2.3 Comment Field. The remainder of any line following a quote 
mark (") is treated as a comment by the assembler and ignored. 

The comment field is terminated by a al return. Thus, in the 
previous example, we could ae 
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LOOP: FADD DPX, DPY; ~ "DO AN ADD 
FMUL TM, MD; © : "AND A MULTIPLY 
- BFGT DONE ~ "AND A BRANCH 
"ALL IN ONE INSTRUCTION 


As before, an instruction statement is ended by the absence 
of a semicolon following the last op-code in that instruction. 


3.3 PSEUDO OPERATIONS STATEMENTS 


Psuedo-operations are directives to the assembler which 
control certain aspects of the assembly translation process. 
Rach psuedo-op must appear on a separate line in the source 


text. All psuedo-op names start with a "$'"'. As with instruction 
statements, psuedo-op statements may be labeled and have comments. 


3.3.1 $EQU. This operator equates a symbol to an expression. 
If user defined symbols are used in the expression they must 
have been previously defined in the program. 


Examples: A $EQU 321 
LOOP $EQU LOC + 3 
HERE SEQU . - 3 
MASK $EQU 132*3+6 


Alternatively, the characters " = i" may be used in place 
of "SEQU": ; 
| A= 6 
X = A*3 
When so used, the "=" must be both preceeded and followed 


by a least one space or tab character. | 


3.3.20 $LOC., $LOC séts the current location counter to the 
value of an expression. If symbols are used in the expression 
they must have been previously defined earlier in the program. 


Examples: S$LOC 300 
~ $LOC .+ 6. "LEAVE NEXT SIX UNUSED 
$LOC LOOP + 10 
‘Caution:  S$LOC should not be set to an absolute address, as in 
the first example, if the assembly output is to be linked re- 
locatably with other programs. 


3.3.3 $END. $END causes APAL to terminate the assembly. 
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3.3.4 $VAL. This operator defines f° bits worth of data to fill 
one program word. The data is specified as four 16-bit integers, 
which represent the four 16-bit quarters of a program word. The 
four expressions are separated by commas. 


Examples: $VAL -377, 104763, 10., LOOP + 6 
$VAL 0, 0, 2000, 33 


Sage0 SEP S. This operator fills the right-most 38-bits of a 
program word with a specified floating-point number. The left- 
hand 26-bits of the word are cleared. | 


Examples: $FP 6.0023E23 
7 ; 2 


$FP 
| $FP E-17 
PL: | SFP 3,141592654 "PI IS HERE 


Note: a floating-point number (say a constant for an algorithm) 
can be read out of Program Source memory and onto the Data Pad 
Bus using a "RPSF" op-code. As an example, to load the contents 
of location "PI" into Data Pad X: | 


RPSF PI. DPX+DB . "GET PI INTO DPX 


3.3.6 $TITLE. This pseudo-op names a program. The name need 
not be unique from other symbols in the program. The $TITLE 
pseudo-op must occur first in the program, before any other 
pseudo-ops or instruction statements. | 


Examples: $TITLE FFT 
$TITLE DIVIDE 


3.3.7 ENTRY. ‘This pseudo-op declares a symbol to be global: i.e. 

a symbol which is defined in this program and may be referenced by 
other separately assembled. programs. The identified Symbols must be 
defined in this program either by an '"SEQU" pseudo-op or by being 
used as a label. SENTRY pseudo-ops must occur before any instruction 
Statements in the program. 


If the symbol is to be an entry point for Host Computer Fortran Calls 
then following the symbol name must be ‘the number of S-Pad parameters” 
expected in the CALL. This may be a number from 0-17,, and is separated 
from the symbol name by a comma. 


Examples: _ SENTRY A 
SENTRY B,6 "Expect 6 S-Pad parameters 
SENTRY C,0 _ "Expect O S-Pad parameters 


APAL 3-4 


3.3.8 $EXT. This pseudo-op declares global symbols which are 
referenced by this program, but are defined by another separately 
assembled program. $EXT pseudo-ops must occur in the program 
before any instruction statements. Symbol names are separated by 
commas. 


Examples: $EXT FLOAT, SCALE, FFT 
$EXT DIVIDE 


3.4 ORDER OF PROGRAM STATEMENTS 


There is definite ordering of statement types with a program. 
The $TITLE Pseudo-op comes first. Next, if present, any $ENTRY and 
SEXT pseudo-ops. The the program body, i.e. the code, then occurs. 
Finally comes the $END pseudo-op. Statement order: 


STITLE pseudo-op . 
SENTRY pseudo-op(s)* 
SEXT pseudo-op(s)* 
"code, ete 7'* ; 


$END pseudo-op 


*Need not be present. 
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3.5 A SAMPLE PROGRAM . 


STITLE DOTPR 
SENTRY DOTPRs 6 
*VECT@R D@T PRODUCT _—_ -, 
“DOES . C60) = SUM ¢ ACMI) * ‘BCMd) > FOR M= 0 TO N-1 
as | bales STATISTICS aaa 
“AUTHGR: AcEe CHARLES Y@RTH. JULY 75 
“REVISIGN 1-3 FEB 76 CHANGED SENTRY 
"SIZE: Ge LICATIGNS 
“SPEED: 2 MEMORY REFERENCES PER POINT 
“SCRATCH: SP: 024553 DPX: 0 (RELATIVE TS DPA) 


"S = PAD PARAMETERS: 7 7 
“BASE ADDRESS GF A 


A SEQU 0 
I SEQU 1 “INCREMENT FOR A 
B SEQU 2 “BASE ADDRESS OF B. 
J SEQU 3 “INCREMENT FGR B 
C SEQU 4 “ADDRESS @F C 
N SEQU 5 _ “YECTIR LENGTH 
DOTPR: MOV AsAS SETMA “FETCH ACO) 
- MOV BBs SETMA. "FETCH B(O) 
DPX<MD3 “SAVE ACO) 
INC N " KEEP COUNT RIGHT 
ADD IsAs SETMA; “FETCH ACL) 
| FADD ZERQ.ZERG " CLEAR SUM 
LOOP: FMUL DPXsMDs "DS ACM) *BCM) 
| FADDS " PUSH ADDER 
DEC N " SEE IF D@NE 
BEQ DONE “BRANCH IF DONE 
FMULS " PUSH MULTIPLIER 
ADD JsBs SETMA " FETCH BCM+l). 
DPX<MD3 “SAVE ACM+1) 
FMUL " PUSH MULTIPLIER _ 
FADD FM. FAs “ADD (ACM)*B(M)) T@ SUM 
ADD I4A3 SETMA3 " FETCH ACM+2) 
BR L@GP | "  BRANGH BACK 
DONE: MI<FA3 MOV CoCs SETMAs "STORE ANSWER IN C(O) 
RETURN " RETURN | 
- $END 
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SECTION 4 
OPERATING PROCEDURES 


4.1 USING APAL 


APAL assembles a file of source text containing an AP-120B 
program into a relocatable object file. Optionally an assembly 
listing is produced. 

APAL first requests whether another assembly is to be done: 


DONE? 1=YES, @=NO: 


A response of "1" will cause APAL to exit to the system 
monitor. A "9" will Signal APAL that another assembly is to 
be done. 

APAL then requests the names of the three files to be used 
for source, object, and listing and errors respectively. The 
program requests the name of the source file by outputting to the 
user console: 


SOURCE FILE= 


The user responds by entering the desired program file 
“name. APAL then requests the name of the file to receive the 
relocatable object output by outputting: 


OBJECT FILE= 


| The user responds by entering the desired object file name. 
APAL then requests the name of the file to receive the assembly 
listing by outputting: 


LISTING AND ERROR FILE= 


The user replies by entering the name of the desired listing 
file. | . | 
Finally, APAL outputs: 


LISTING? 1=YES, @=NO: 


A response of "1" will yield a full assembly listing, symbol 
table, and any error messages. A "9"' will suppress. the assembly 
and symbol table listings and put out only any error messages 
into the listing file. | 

Finally, if a listing was requested, APAL outputs: 


EPPS RADIX? 1= HEX, Q=OCTAL: 


A response of "1" will cause the assembly iietane to be 
done in Hexadecimal (base 16). A"@'" will make the assembly 
listing in Octal (base 8). . 
| In each of the above cases, if the sought after file cannot 
be found or is otherwise unavailable, APAL types '"??", and waits 
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for another user response. 
An example dialogue is given below. The user desires to 


assemble an AP-120B program in file "FFT.AP" and put the object 
output into file "FFT.RB". The listing will be put out on the 
line printer. Of course, the precise details of how files and 
devices are named will depend on the particular operating system 
being used. The messages printed by the COmpULEr are underlined 
for clarity; a ")'’ means carriage return: . 
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RUN APAL+ 
DONE? 1=YES, @=NO: 1+ 


SOURCE FILE = FFT.APt 


OBJECT FILE = FFT.RBy+y 


- LISTING FILE = LP:+ 


LISTING? 1=YES, @Q=NO: 
LISTING RADIX? 1=HEX, 


DONE? 1=YES, Q=NO: @4 


4.2 LISTI 


NG FORMAT 


1+ 
@=OCTAL: Qy — 


Upon commencement of the assembly, APAL outputs: 


APAL 
emi 
PASS 1 


"###" is the version number of the assembler being used. 


Any errors detected during pass one are output next. 


start of p 


ass two APAL outputs: 


PASS 2 


At the 


The assembly listing follows. The listing contains the 
following information for each program statement: 


Columns Contents © 

1-6 The location counter, if relevant. 
7~8 Blank | | 
9-14 The assembled data, if relevant. 
15-16 Blank 7 3 

17-132 The source statement 


For program instruction statements the assembled data is 
as four numbers, representing bits 0-15, 16-31, 
47, and 48-63 of each program source word. 


presented 


At the end of pass two, APAL outputs 


2 OK OK OK 


Where 


SYMBO 


cid ERRORS ae 


L - NAME 
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32- 


: '##t'’ is the number of errors detected. Finally, 
APAL outputs: . | a 


Followed by the symbol table: 


Columns = Contents 
1-6 Symbol Name 
7-8 . Blank 
9-14 Symbol value 
mis: Blank 


16-18 Symbol type: 
Blank - local symbol 

EXT - external symbol 

ENT ~ entry symbol 


In all of the above occurance where a number (location, data 
value, etc.) is printed on the listing, the radix is either 
octal or hex, as specified by the user during the initial 
dialogue... | 


“APAL°4-3 


(INTENTIONALLY BLANK) 


“APAL 4-3a 


>>R APAL . 
S@URCE FILE=/CDR 
@BJECT FILE=TEMP | 
LISTING AND ERR@R FILE=/TT2 
LISTING? 1=YESs O=N: | 
LISTING RADIX: I=5HEX»s O=8CTAL: 0 
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Veel 
PASS 1 


PASS 2 


000000 


000001 


000002 


000003 


000000 


000001 


900002 


000003 


000004 
000005 


040000 


000000 
000000 
000060 


040210 
000000 
000000 
000060 


001124 
000000 
045004 


000000 


020101 


{55000 | 


900000 
ananan 


"REVISIGN 1-3 
“SIZE: 


"SPEED: 


“SCRATCH? 


"Ss 


DBTPR: 


4.3 A SAMPLE ASSEMBLY LISTING 


i 


$TITLE DOTPR 
SENTRY DOTPRs 6 


“VECTOR DOT PRODUCT 
“DES C(O) = 


SUM ¢€ ACMI) 


* B(MJ) ) FOR M = 0 TS Nel 


: --- STATISTICS --- 
“AUTHOR: AeE- CHARLESWIRTHs JULY 75 


FEB 


Se LOCATIONS 


76 CHANGED SENTRY 


2 MEMORY REFERENCES PER POINT 


SP: 054.453 


- PAD PARAMETERS: 


A SEQU 0 
I SEQu 1 
B SEQU 2 
J SEQU 3 
C SEQU 4 
N SEQU 5 
MaV AsAd SETMA 
MOV BLB3 


SETMA 


DPX<MDs 
- INC N 


ADD IsAs SETMA; ~ 


FADD ZERS»ZERS 
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DPX: 


0 CRELATIVE TS DPAD 


“BASE ADDRESS @F A 
“INCREMENT FOR A 
“BASE ADDRESS GF B 
" INCREMENT FOR B 
“ADDRESS OF C 
| "YVECT@R LENGTH 


“FETCH ACO) 
“FETCH B(O) 


“SAVE ACO) 
" KEEP COUNT RIGHT 


“FETCH ACL) 
" CLEAR SUM 


OUU. 04 


000005 


000006 


000007 


000010 


O01c cS 
100000 
000400 
013400 


020310 
000623 


000000 
010060 


000000 
000000 
045004 


010000. 


020101 


AVIS 


000000 


000060 


040420 
000340. 


000000 
000160 


FMUL Diu. 
FADD; 
DEC N- 


LIGP: 


BEQ DONES 
FMUL3 


ADD JsBs SETMA 


DPX<MD; 
FMUL 


FADD FMsFA3 
ADD IsAs SETMAS 
BR LOOP 


DONE: 
RETURN 


SEND 


O ERR@GRS CAC 


VALUE 


000000 
o0000! 
000002 
000003 
000004 
000005 
0900000 
000004 
000010 
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MI<FAs MOV C.C3 


"DS ascis eo CMD 
* PUSH ADDER 
" SEE IF DONE 


“BRANCH IF DONE 


" PUSH MULTIPLIER 
‘’ FETGH BCMel) 


“SAVE ACMF1) 
* PUSH MULTIPLIER 


"ADD (ACM)*BCM)) TS SU 
" FETCH ACM+2) 
* BRANCH BACK 


“STORE ANSWEA IN C(O) 
" RETURN _ 


INTENTIONALLY BLANK 
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SECTION 5 
ERROR MESSAGES - 


APAL error messages are printed in the listing following 
the offending statement. There are five basic error classes, 
which are listed below along with the action taken by the 
assembler; 


O - Out of range: the offending numeric value was 
truncated to the proper range. 


C - Oe ents definitions: the first definition 
was used. 


M = Wisse (or improper) argument: a value of zero 
was used. ae 


B - Bad syntax: the bad op-code field or pseudo-op 
- was ignored. 


W'- Warning of improper useage. 


Error diagnostics issued by APAL consist of two lines. 
The first line consists of the error number. The second 
line contains the error class and error message. Following 
are the assembler error messages, along with an explanation 
as to the possible causes and/or cures. 


1. W LINE BUFFER OVERFLOW 
- An instruction statement was too tong (600 characters 
maximum) for the listing buffer. 


tees. oS MULTIPLY DEFINED SYMBOL 
A symbol may be defined only once in a program. 


3. C CONFLICTING OP-CODES 
Two op-codes were used in an instruction statement which 
used the same instruction word bit fields. . 


4, O S-PAD ADDRESS OUT OF RANGE 7 
An S-Pad address was outside the legal range of O-15. 


5. O BRANCH ADDRESS OUT OF RANGE 


A branch address was more than 16 locations Lowes or 
15 locations higher than the current location. 
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6. CC CONFLICTING BRANCH ADDRESSES 
Only one branch address may be used in any given instruc- 
tion statement. ; 


7. OM MISSING BRANCH ADDRESS 
No target address was given for a branch op-code. 


8, C CONFLICTING DATA PAD INDEXES 
Only one value may be given to each Data Pad Index 
(XR, XW, YR, YW) per instruction statement. 


9. M BAD OR MISSING EXPRESSION | 
The assembler could not process an expression. 


10. M WRONG FADD ARGUMENT 
A floating adder op-code had an invalid Al or Ag operand. 


11. M WRONG FMUL AGREEMENT 
A FMUL op-code had an invalid Ml or M2 operand. 


12. M MISSING FADD OR FMUL ARGUMENT 
. An operand was. missing following a FADD or FMUL op-code. 


13. C VALUE FIELD CONFLICT 
Only one op-code which uses a 16-bit VALUE field operand 
may be used per instruction statement. 


14, M MISSING DATA PAD INDEX 
A Data Pad Index was missing from an op- -code. sea it 
was needed. 


15. M UNDEFINED OP-CODE 
An op-code name was not a edi AP-120B instruction. 


16. M $EXT SYMBOL IN EXPRESSION 
An external symbol may not be used to form an expression. 


17. M UNDEFINED USER SYMBOL 
A user symbol was referenced which was not defined. 


18. M MISSING ARITHMETIC OPERATOR 
An arithmetic operator (+ - * /) was missing from 
an SAUPesStOn 


19, O INTEGER ‘OVERFLOW = 
An integer constant was too large to fit in 16 bits. 
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20, 
Za 
2. 


23, 
24. 


25. 
26. 
27. 
28 
29, 


30. 


Oe 


B UNRECOGNIZED STATEMENT 
A statement line was neither a comment, instruction, 
or weeeueee -op statement. 


M- IMPROPER $LOC OR $EQU VALUE | 
The value of a $LOC or $EQU pseudo-ov was either 
an undefined.symbol or an improper expression. 


M $EXT SYMBOL NOT ALLOWED 
An external symbol may not be used as an argument 
for this op-code. 


‘W MISSING $END , 
JA program must terminate with a SEND pseudo-op. 


QO DATA PAD INDEX OUT OF RANGE | 
A Data Pad Index must be between -4 and +3 inclusive 


B MISSING PARENTHESES 
The right parenthesis following a Data Pad 
Index was missing. 


M BAD DATA PAD INDEX EXPR | 
A Data Pad Index expression could not be resolved 


into a numeric value. 


B COMMA MISSING 
Only a comma may be used to separate pseudo-op 
arguments. 


B SYMBOL MISSING IN $EXT PSEUDO-OP 
No symbol names were found as arguments for an 
$EXT ‘pseudo-op. 


B MISSING SEP AFTER aL INDEX 
An illegal character was found following a Data 
Pad Index. 


B MULTIPLE PSEUDO-OPS 
Only one pseudo-op statement may appear on a line, 


M BAD FLOATING POINT NUMBER 


A floating-point number was unacceptable to the 
assembler. 
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S26 


33. 
34. 
35. 


36. 


37. 


— 38. 


39. 


W ILLEGAL PSEUDO-OP POSITION 
If used, a $TITLE pseudo-op must appear first in 
a program, followed by any oe or ors pseudo-ops, 


W SENTRY SYMBOL NOT LOCAL 
An $ENTRY Symbol must not be $EXTernal also. 


W UNREFERENCED $EXT SYMBOL 


A declared external symbol was never used in the program, 


W UNDEFINED SENTRY SYMBOL 
An $Entry symbol was not defined. 


C DATA PAD BUS CONFLICT 


Only one data source may be enabled onto the Data Pad 
Bus per. instruction ‘statement, 


M MISSING S-PAD ADDRESS 


An. S-Pad op-code was missing its S-Pad Register Address. 


M MISSING PROGRAM SOURCE ADDRESS = 
An op-code requiring a program address, such as a JMP or. 
JSR, was missing its address. 


XW/YW CONFLICT 

If the value field is used in an instruction, an ov-code . 
which writes into Data Pad Y (such as DPY(2)<FM) ) may be 
used also only if 1) no write into Data Pad X is done, or 


2) the indexes are the same for the waa EeS into both 


DPX and DPY. BAAD Les: 


Legal: JSR SQRT; "Uses the value field 
DPY(2)<FM "A store into DPY 


Legal: JSR SQRT; "Uses the value field 


DPX(2)<FA; "Both Data Pad write indexes 
- DPY(2)<FM "are the same 


Illegal: JSR SQRT: "Uses the value field. 


DPX(-1)<FA; "the two Data Pad write 
DPY(2)<FM "indexes are different 
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APPENDIX A 
SPECIAL CHARACTER USAGE 


Character Function 


+ integer addition operator 

- integer subtraction operator 

* integer multiplication overator | 

/ | integer division operator 

decimal point, current location 

$ first character of pseudo-op names 
space symbol terminator 

tab = symbol terminator 

= $EQU pseudo-op, DB=op-code 

C. preceeds a Data Pad index expression 

) terminates a Data Pad index expression 

< used in DPX, DPY, and MI op-codes 

: op-code terminator §— 

‘ operand separator 

label terminator | | 
" comment start indicator (carriage return terminates) 
i# , S-Pad no-load indicator 

& S-Pad bit-reverse indicator 

! first character of predefined symbols 
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(INTENTIONALLY BLANK) 


APPENDIX B 


AP~120B SYMBOLIC OP-CODES 


The various AP-120B op-codes may be divided into 13 groups. 
One op-code from each group may be used in any eee instruc- 


tion statement, 


untese ‘otherwise stated. 


The EOsPOWSRE two Sonbors are used throughout this appendix: 


<> 


Indicated optional operands or mnemonics. 

The item enclosed in the brackets(e.g., <#>) 
may or may not be coded, depending upon whether 
or not the associated option is desired. 


Indicates a specific substitution is required. 
Substitute the desired address, name, number 
cr mnemonic 208 the abbreviation underlined. 


The following list of abbreviations are used to facilitate the 
op-code descriptions. They are explained in the section of the 
op-code group where they sae occur: 


Abbreviation 


' S-Pad no-load 


| : on Section in 
Meaning | which described 


S-Pad Shift 


S-Pad Source pieisees 

S-Pad Destination PeerSler 

Bit reverse 

Branch displacement 

Floating Adder argument #1 
Floating Adder argument #2 

Data Pad index 2) 
Floating Mulitplier argument #1 
Floating Multiplier argument #2 
Data Pad Bus enable 

address or value 


ecNechcsMccRecRecResMecMccReReehcchee 
DOIIRMANPRHHE 
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B.1 S-PAD OP-CODE GROUP 


Purpose: 


Double Operand Op-codes 


ADD<sh><#> 
SUB<sh><#> 


MOV <sh><#>. 


AND<sh><#> 
OR <sh><#> 
EQV<sh><#> 


Tag result 


Single Operand Op-codes 


LDSPNL spd 
LDSPE spd 


S-Pad wan ecex arithmetic 


' Function 


<&>sps,spd ADD sps to spd 
<&>sps,spd SUBtract sps from spd 
<&>sps,spd MOVe sps to spd 
<&>Sps, spd AND sps to spd 

<&>SpSs, spd OR sps to spd 

<&>sps, spd EQuiValence sps to spd 


Function 


CLR<sh><#> spd Clear spd 

INC<sh><#> spd INCrement spd 

DEC<sh><#> spd DECrement spd 

COM<sh><#> spd COMplement spd 

The result of the above op-codes is SPFN (S-Pad Function). 
Miscellaneous Function 


LoaD Spd from PaNeL bus 


- LoaD SPd from data pad bus Exponent 


LoaD SPd from data pad bus Integer 

(low 16-bits) | 

LoaD SPd from data pad bus Table 
look-up bits 


WRTEXP enable WRiTe of EXPonent ani into 
DPX, DPY or MI 
WRTHMN enable WRiTe of High MaNtissa only 
Lnto- UPA. DPY or il: 
WRTLMN enable WRiTe of Low MaNtissa only into 
DPX, DPY “Or “iI 
ABBREVIATIONS: 
Name Meaning 
sh S-Pad shift: 
. Choices Meaning 
(omitted) no shift 
L 2 shift SPFN left once 
a shift SPFN right once 
~ RR shift SPFN right twice 
# S-Pad no-load: If present, do not load SPFN into spd 
: (S-Pad destination register). If specified, a branch 
group op- code may not be used in the same instruction 
statement. 
sps S-Pad source register: a name, number or expression 


specifying a register number between @ and 17g. 
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spd S-Pad destination register:. a name, number, or expression 
Specifying a register number between O and 17s. 
SPFN is loaded into the S-Pad destination register 
unless S-Pad no-load (#) is specified. 


& Bit reverse: if present, bit reverse the contents of 
sps before using. The bit reverse is done as specified 
by. bits 13-15 of the Internal Status Register. 


Op-code Examples: MOV 3,6 
| ADDL# &PTR, BASE 
DEC CTR . os 
CLR 9. 
LDSPI 6 


B.2 MEMORY ADDRESS OP-CODE GROUP 


Purpose: to initiate Main Data Memory cycles 


Op-codes Function — 


INCMA INCrement Memory Address 
DECMA ~DECrement Memory Addresss 
SETMA SET Memory Address from SPFN 


B.3 TABLE MEMORY ADDRESS OP-—CODE GROUP 
Purpose: to initiate Table Memory fetches 


On-codes Function | 


INCT MA INCrement Table Memory Address 
DECTMA DECrement Table Memory Address 


SETTMA . SET Table Memory Address from SPFN 


B.4 DATA PAD ADDRESS OP-CODE GROUP 


Purpose: to change the DPA (Data Pad Address) register 


Op-codes. Function 


INCDPA INCrement Data Pad Address 
DECDPA . DECrement Data Pad Address 


SETDPA | SET Data Pad Address from SPFN 
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BRANCH OP-CODE GROUP 


B,o 


Purpose: Conditional branches 
Op-code Function 
BR disp - BRanch unconditionally 
BINTRQ disp Branch on INTerrupt ReQuest flag non-zero 
BION disp Branch if I/O data ready flag Non-zero — 
BIOZ disp Branch if I/O data ready flag Zero 
BFPE disp Branch on Floating Point Error: | 
| BFEQ disp Branch on Floating adder E@Qual to zero 
-BFNE disp Branch on Floating adder Not Equal to zero 
BFGE disp Branch on Floating adder Greater’ or Equal to zero 
_BFGT disp _ Branch on Floating adder Greater than zero 
. BEQ disp Branch on s-pad function Qual to zero 
BNE disp Branch on s-pad function ‘Jot Equal to zero 
BGE disp Branch on s-pad function Greater or Equal to zero 
BGT disp Branch on s-pad function Greater than zero 
RETURN | RETURN from subroutine. 
ABBREVIATION: 
disp Branch displacement: the branch target address, an 
address between 16 locations behind and 15 locations 
ahead of the current. location. 
Examples: BR LOOP> 
BGT .+3 


BFNE A-4 


B.6 FLOATING ADDER OP-CODE GROUP 


Purpose: Floating-point adds 


Double Operand 


Op-codes Function 

FADD <al,a2> Floating ADD (al+a2) 

FSUB al,a2 Floating SUBtract (al-a2) 

FSUBR al,ad Floating SUBtract Reverse (a2- al) 
FAND al,a2 Floating AND (al and a2) 

FOR al,a2 Floating OR (al or a2) 

FEQV al, a2 


Floating EQuiValence (al eqv a2) 


Single Operand 
Op-codes 


Function 


FIX a2 FIX a2 to an integer 

FIAT ad FIX a2 to an integer, (Truncated). 

FSCALE a2 Floating SCALE of a2 

FSCLT a2 Floating SCALE of.a2, (Truncated) 

FSM2C a2 Format conversion, Signed “Magnitude to 2's complement 
F2CSM as . Format conversion, 2's complement to signed maznitude 
[FABS. * ca5- Floating ABSolute value | 
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ADDER OPERANDS: 


al Floating adder argument #1: 


Choices |. . Meaning 

NC . No Change(use previous al) 

FM - Floating pe apetee output 

DPX< (idx)> Data Pad X © 

DPY<( idx)> Data Pad Y 

TM ~ Table Memory data 

ZERO floating-point ZERO 
a2 Floating adder argument #2: 

' Choices © : Meaning 

NC No Change (use previous a2) 

FA . | Floating Adder output 

DPX< {idx)> Data Pad X 

DPY<(idx)> | . Data Pad Y 

TM Table Memory data 

ZERO floating ZERO 
MDPX< (idx)> | use Mantissa from Data Pad X, and 
exponent from SPFN 
EDPX (idx) ~ - use Exponent Data Pad X, and mantissa 
Z from SPFN 

ADBREVI ATION: 
idx Data Pad index: A name, expression, or number which 


lies in a range of -4 to +3. 


. Op-code examples: FADD TM, MD 

| FSUB DPX(3), DPY(-4) 
FEQV DPX, DPY(C) 
FAND ZERO, MDPX(2) 
FSUBR NC,FA 

FADD . 


Note: Up, to four unique Data Pad indices may be specified in one 
instruction statement. In particular, only one indexing each may 
be used for reading from Data Pad X and Y, regardless of how 
many op-codes use the data read from Data Pad. 
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B.7 FLOATING POINT MULTIPLY OP-CODE GROUP 


Purpose: Floating Point multiplies 


Op-code | — Function | 
FMUL m1,m2 Floating MULtiply ml times m2 


MULTIPLIER OPERANDS: 


ml Mult iplier-operand #1 
Choices Meaning 
FM Floating Multiplier output 
DPX< ¢idx)> Data Pad X 
DP Y< (idx )> Data Pad Y- 
TM Table Memory 
m2 Multiplier-operand #2 
Choices | Meaning © 
FA ; : Floating Adder output 
DPX (idx) Data Pad X 
DPY (idx) | Data Pad Y 
MD _ Memory Data 


Examples: FMUL TM, MD 

FMUL DPX (AR), DPY (BI) 
| FMUL | 

B.8 DATA PAD X OQP-CODE GROUP © 


Purpose: Storing into Data Pad X 


Op- code - Function 

DPX<(idx)> <FA | Store Floating Adder output into Data Pad X 
DPX<( idx x)> <FM Store Floating Multiplier output into Data Pad X 
DPX< (idx x)> <DB Store Data Pad Bus into Data Pad X 

DPX<( idx) > <dbe Store dbe into Data Pad X 

ABBREVIATIONS: | 

dbe Data. Pad Bus enable: has the same effect as an explicit 


Data Pad Bus op-code. (see B.11) 


Choices  . ~- Meaning 

ZERO . Floating zero 
adr 7 adr | 

-DPX (idx> > Data Pad X 

DP (idx) > Data Pad. -Y: 

MD Memory Data 
SPFN S-Pad Function 


TM Table Memory data 
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Note: only one ensue of Data Pad Bus enable may be made per 
instruction statement. 


adr An address Sa meric walle, eg 16-bit integer 
expression is legal. A Floating Multiplier, Memory 
Input, Memory Address, Table Memory Address, or Data 
Pad Address op-code may- not be used in an: instruction 
statement where an "adr" is used. 


Examples: DPX(3)<FM 
DPX(-2)<SPFN 
DPX-+ MD 
- DPX(1)<DPY (-2) 
-DPX(-2)< -123 


B.9 DATA PAD Y OP-CODE. GROUP 


Purpose: Storing into Data Pad Y 


Cp-Code oe Function | 

DPY .(idx),-FA Store Floating Adder output into Data Pad Y 

DPY <( idx) ><FM Store Floating Multiplier output into Data Pad Y 
DPY <(idx) ><DB Store Data Pad Bus into Data Pad Y. 


‘DPY <(idx ) ><dbe Store dbe into Data Pad Y 
Examples: DPY(- 2) <FA 

DPY< MD 

DPY(2) <TM 

DPY( 1) <39. 
B.10 MEMORY INPUT OP-CODE GROUP 


Purpose: Writing into Main Data Memory 


Op-codes Function 

MI <FA ee Move Floating Adder output to the Memory Input reg. 

MI <FM . Move Floating Multiplier output to the Mem. Input reg. 
MI<DB . Te Move Data Pad Bus to the Memory Input Register 

MI .<dbe Move dbe to the Memory Input Register 


Note: to effect a memory write, an op-code from the memory address 
group, or.an "LDMA" op-code must also be included in the instruction 
statement. to supply the nenery address. 


Examples: MI-<FA; INCMA 


MI<DPX(3); DECMA 
MI<MD; SETMA; ADD 3,6 
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B.11 DATA PAD BUS OP-CODE GROUP 


Purpose: to explicitly enable data onto the Data Pad Bus. 


Op-codes | Function 

DB=ZERO | enable ZERO onto the Data Pad Bus 

DB=adr es enable adr onto the Data Pad Bus. 
DB=DPX<(idx)> | enable Data Pad X onto the Data pad Bus 

DB= =DPY<(idx)>_ enable Data Pad Y onto the Data Pad Bus 

DB=MD enable Memory Data onto the Data Pad Bus 
DB=SPFN .@enable S-Pad Function onto the Data Pad Bus 
DB=TM enable Table enn data onto the Data Pad Bus 


Note: as mentioned Sunvier: only one data source may be enabled 
onto the Data Pad bus per instruction statement. a 


Examples: DB = 37 
DB = DPX(-2) 
DB. = MD © 
DB = SPFN 


B12 SPECIAL OPERATION OP--CODE GROUP 


Note: if an op-code from this group is chosen, an S-Pad Group 
op-code may not be used in the same instruction statement. 


B.12.1 SPECIAL TESTS 


Purpose: additional conditional branches 


epecoes ' Funetion 

BELT disp. | Branch on Floating adder Less Than zero 
BLT disp Branch on s-pad function Less Than zero 
BNC disp _ Branch on Non-zero Carry bit - 

BZC disp e Branch on Zero Carry bit 

BDBN disp Branch if Data pad Bus Negative. 

BDBZ disp | Branch if Data pad Bus Zero 

BIFN disp Branch if Inverse FFT flag Non zero 
BIFZ disp Branch if Inverse FFT flag Zero 

BFL® disp _ Branch if Flag @ is 1 
~BFL1 disp | Branch if Flag 1 is 1 © 

BYrL2 disp Branch if FLag 2 is l 

BFL3 disp Branch if Flag 3 is l 


Note: if one of these tests is used along with a test from the Branch 
Group, the conditions are "or'd." In this case, only one of the 
branch op-codes need have the target address as an operand. 


Examples: BNC ODD 
BFEQ LOOP; BFLT LOOP "LESS THAN OR EQUAL: TO 


B.12.2 SETPSA 


Purpose: jumps and subroutine jumps 


Op-codes Function 
JMP<A> adr JuMP to location .adr 
JMPT JuMP to location whose address is in TMA 
JMPP : JuMP to location whose address is on the Panel bus 
JSR<A> adr ©. JumP to SubRoutine at location adr 
JSRT . JumP to SubRoutine at address in Tma 
JSRP | JumP to SubRoutine at address on Panel bus 
Examples: JMP LOOP + 83 
JSR FFT 
JMPA 300 


B.12.3 SETEXIT 


Ssnude: to alter a subroutine return 


Op-codes Function 
SETEX<A> adr § SET subroutine EXit to adr 
SETEXT ns SET subroutine EXit to contents of Tma 


SETEXP _ SET subroutine EXit to contents of Panel bus 
Example: SETEX BAD 
Bl12.4 P.8. 


Purpose: read/write of Program Source Memory 


Op-codes | Function 
-RPSL#@> adr Read Program Source Left half of location adr 
RPSF A> adr Read Program Source Floating- -point number trom 
location adr 
RPSLT Read Program Source Left half at address in Tma 
RPSFT Read Program Source Floating point number at 
- address in Tma | 
RPSLP . Read Prog. Source Left half at address on Panel bus 


RPSFP | | Read Prog. Source or ae point number at. address 
: - on Panel bus © 


Note: these Op- -codes read onto the Data Pad Bus 


Op~coaes . Function 

LPSL <A> adr Load Program Source Left half of location adr 
LPSR<A> adr... Load. Program Source Right half of location adr 
LPSLT a ~ Load Program Source Left half pointed at by Tma 
LPSRT | . Load Program Source Right half pointed at by Tma 
LPSLP ‘Load Prog. Sre Left half pointed at by Panel bus 
LPSRP - Load Prog. Sre Right half pointed at by Panel bus 


Note: these op-codes load from the Data Pad Bus 


Example: RPSF PI 
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B.12.5 PS ODD AND EVEN 


Purpose: reading the host panel switches into Program Source 

| memory; writing Program Source to the panel lites. 
Op-codes Function 
RDSS<A > adr Read Program Source quarter § from location adr 
RPOL =A? = adr Read Program Source quarter 1 from location adr 
RPS2<A > adr Read Program Source quarter 2 from location adr 
RPS3*A* > adr Read Program Source quarter 3 from location adr | 
RPSST Read Program Source quarter @ from address in Tma 
RPS1T Read Program Source quarter 1 from address in Tma 
RPS2T Read Program Source quarter 2 from address in Tma 
RPS3T Read Program Source. quarter 3 from address in Tma 
WPS@<A> adr Write Program Source quarter @ into location adr 
WPS1<A ? adr Write Program Source quarter 1 into location adr 
WPS2SA?7 adr ~° Write Program Source quarter 2 into location adr 
WPS3<A > adr Write Program Source quarter 3 into location adr 
WPS@T Write Program Source quarter @ into address in Tma 
WPSILT Write Program Source quarter 1 into address in Tma 
WPS2T Write Program Source quarter 2 into address in Tma 
WPS3T Write Program Source quarter 3 into address in Tma 


B.12.6 HOSTPANEL 


Purpose: Reading the host panel switches; writing to the host panel 


B. 15.7 Miscellaneous 


SPMDA 


lites 
Op-code Function 
PNLLIT PaNeL bus to LITes . 
DBELIT Data pad Bus Exponent to LliTes 
DBHLIT Data pad Bus High mantissa to LIiTes 
_DBLLIT Data pad Bus Low. mantissa to LITes 
SWDB. SWitches to Data pad Bus 
Sv DBE SWitches to Data pad Bus Exponent _ 
SWDBH SWitches to Data pad Bus High mantissa 
SWDBL SWitches to Data pad Bus Low mantissa 


SPin until a Main Data memory cycle Available 
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B.13 I/O OP-CODE GROUP 


Note: if an op-code is used from this group, a Floating Adder 
op~code may not be used in the same instruction statement. 


B.13.1 Load Reg, Read Reg 


Purpose: reading/writing of various internal registers 


Op-codes Function 

LDSPD LoaD S-Pad Destination address register 
LDMA LoaD Memory Address register 

_LDTMA LoaD Table Memory Address register 
LDDPA a LoaD Data Pad Address register 

LDSP LoaD S-Pad register pointed at by spd 
LDAPS LoaD AP Status register © 

LDDA | LoaD i/o Device Address 


Note: the above op-codes load from the Data Pad Bus 


Op-codes - Function 

RPSA a Read Program Source Address 

RSPD Read S-Pad Destination register 
RMA Read Memory Address register 

RTMA _ Read Table Memory Address register 
RDPA Read Data Pad Address register 
RSPFN _ Read S-Pad FunctioN 

RAPS Read AP Status . 

RDA Read i/o Device Address 


Note: the above read onto the Panel bus 
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-B.13.2 INOUT 


Purpose: Program control/input output of data 


Op-codes 


OUT 
SPNOUT 

OUTDA. 
SPOTDA 


Function 


OUTput data 


SPiN until device ready, then OUTput data 


OUTput data, then set DA to spfn 


SPin until device ready, then OuTput data, 


set DA to spin _ 


then 


Note: the above write to the I/O device specified by the Device Address 
Register (DA) whatever data is enabled onto the Data Pad Bus. 


Op-codes 
IN 
SPININ 
INDA 
SPINDA 


Function 


INput data 
SPIN until device ready, then INput data 
INput data, then set DA to spfn 


SPin until device ready, then INput data, 


set DA to spfn 


' then 


Note: the above enable data onto the Input Bus from the I/O device 


specified by the Device Address Register (DA). 
data must be enabled onto the Data Pad Bus, 


register or memory. o example: 


IN; 


B.13.3 SENSE 


DPX( 2) <INBS "READ I/O DATA INT O DPX 


Purpose: . Sensing an I/O device condition 


Op-codes 


SNSA 
SPINA 
SNSADA 
SPNADA 
SNSB 
SPINB 
SNSBDA 
SPNBDA 


Function 


SeNSe condition A 
SPIN. on condition A | 
SeNSe condition A, then set DA to spfn 


SPIN on condition A, then set DA to spfn 


SeNSe. condition B 

SPIN on condition B 

SeNSe condition B, then set DA to spfn- 
SPIN on condition B, then set’ DA to spfn 
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To be used the 
and from there to a 


FLAG 


B.13.4 
Purpose: set/reset of program flags 
Op-codes ‘Function 
SEFLPD Set Flag @ 
SFL1 Set Flag 1 
SFL2 _ Set Flag 2 
SFL3 Set Flag 3 
CFL@ Clear Flag 9 
CFL1 Clear Flag 1 
CFL2 Clear Flag 2 
CFL3 . Clear Flag 3 
Bw L335 CONTROL 
Purpose: miscellaneous control functions 
Op-code Functions 
HALT HALT processor 
IORST I/O ReSeT . 
INTEN INTerrupt ENable 
INTA INTerrupt Acknowledge 
REFR memory REFResh synch . 
WRTIEX | enable WRiTe of Exponent only into DPX, DPY or MI 
WRTMN enable WRiTe of MaNtissa only into DPX, DPY or MI 
SPMDAV 


SPin until a 
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Main Data memory cycle AVailable 


INTENTIONALLY BLANK 
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APPENDIX C 


TABLE MEMORY SYMBEZLS:2 © 


de 


TABLE MEMORY CONSTANTS? 


CONSTANT 
REPRESENTED 


ZERS 

BNE 

TWO © 

THREE 

FOUR 

FIVE 

SIX 

SEVEN 

EIGHT 

NINE 

TEN 

SIXTEEN 
HALF | 
@NE THIRD 
@NE FIUURTH 
@NE FIFTH 
SNE SIXTH 
SNE SEVENTH 
ONE EIGHTH 
SNE NINETH 
ONE TENTH 
SNE SIXTEENTH 
SQRT¢C2) | 


~SQRTC3) 


SQRTC(5) 
SQRTC10) 
1-0/SQRTC2) 
1¢O0/SQRTC3) 
1-O0/SQRTCS 2 
1-0/SQRTCIOD 
CBRTC2) 
CBRTC3) 
C200) *¥1/a 


L@G2CE) — 


L@G10¢2) 
LOGIOCED 
LNC2) 


Plexo 


SQRTCPID 


LNCPI) 
GAMMA 
PHI 


VALUE IN 


TABLE MEMORY 


~~ po 


33333333 
0-625 


O62. . | 
0+*« 166666667 


0+142857143 
02125 


a YSeeeseees| 


O«l 
020625 
12414213562 
12732050808 


26236067977 


36162277660 
0+707106781 
0*°577350269 
05447213596 
0+316227766 
12259921050 
12442249570. 
1¢189207115 
16442695041 
06301029996 
05434294482 
(06693147181 
15098612289 
26302585093 
26718281828 
02367879441 
76389056096 
32141592654 
66283185308 
05318309886 
15570796327 
0785398164 
05017453293: 
95869604404 
12772453851 
1144729886 
06577215663 
15618033989 


TABLE MEMORY © 
ADDRESS (@CTAL)D 


4371 
400! 


4002 


4441 
4442 
4443 


ALag - 
Baas 


A446 


agaT 
. 4450 


4451 
A427 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4440 


4203 


4422 
4423 
4424 
4206 


4452 


4453 
4454 
4417 
4420 
4421 
4317 
4411 
4337 
4336 
4407 
4410 


3403 


4404 


4405 


4402 


4415 — 


A4L2 
4312 
4373 
aal3 
Aala 
aalé 
4406 
4425 
A426 
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Ge 


S'YMBGL, 


!DIV 
1SQRT 
1SNCS. 
1L2G 
{EXP 
YATAN 


2s 


SYMBOL 


IFFTSZ . 


ELEMENTARY FUNCTIQN TABLES: 


SIZE OF 


ELEMENTARY 
FUNCTIGN — 


DIVIDE 


“SQUARE ROGT 


SIN/C8S 


LO GARITHM 


EXPONENTIAL 


ARC TANGENT 


TASLE MEMORY 
ADDRESS (SCTAL) 


4000 > 
4202 
4306 
4333 
4317 
4365 


INSTALLED FFT COSINE TABLE 


SIZE (TYPICAL) 


2048 
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EXAMPLE OUTPUT 
from 


APAL 


APAL 
V20l 
PASS 1 


PASS 2 


STITLE SINCOS 
SENTRY SIN 
SENTRY COS . 
“SINEs COSINE FUNCTION 


aid 7° ABSTRACT -<-- 


“COMPUTES THE FUNCTIGN SINCX) OR COS¢X)~ WHERE X IS IN 
ad . DPXXCDPA) © 


Lad 


" | wee STATISTICS --- 


“LANGUAGE? AP-120B ASSEMBLER 

"EQUIPMENT: = # AP=120B 

“STZRAGE: PS - 31 LOCATIONS 

by MD - NOT AFFECTED 

ie | TM = 9 

. DPX = 2 

se |  «*DPY = 2 

os SP = NOT USED 

"SPEED: SIN = 442 USe AVERAGE (4-00 - 483) 
oe CdS = 4675 US+ AVERAGE C4e 33 = SeI¥7)> 
"AUTHOR: AeEe CHARLESYIRTH ~ 
“DATE? NOV. 1975 
"REVISION: 202° FEB 76 CHANGED SENTRY 

ty mae : $ 

- _ ee USEAGE --- 

“SAMPLE CALL: JSR SIN» JSR COS 

“ARGUEMENTs: X IS IN DPXCDPA) 

"ANSWER: ' SINCX) GR COSCX) IS LEFT IN DPXCDPAD 
“*SCRATGH? DPX€O=2)4 DPY(O-3) 

ee : . 

oe . en- ERROR CONDITISZNS --- 

“NONE - a 7 

ay . ee" ALGORITHM <--<~ 

"Le IF COSCX) IS DESIREDs COSCX) = SINCX+PI/2) 
"Qe x IS MULTIPLIED BY 2/PIs AND SPLIT INTS (I + F 
ciel . WHERE 1 1S AN INTEGER AND F A POSITIVE 
ns : BETWEEN 0 AND +9999999999ee0 

" IF 1 IS @DDs Fe<= (1-0 = F) 

"Ae SINCE) 2 A + BF*¥*3 % CF**5 + DF**7 + EF**9 
ae _ THE POLYNOMIAL IS FROM 

= HART & CHANEY #3341 (PRECISION Se 27 85% 
ig . RANGE 0 TS PI/2 

"S. §$IF 1/2 IS @DD» SINCF) IS NEGATED 


“NOTE: THE P@LYNOMIAL IS FACTSRED AS: | 
_ (AF + F##3(B + CF##2)) + FeR7(D + EF##2) 


te 


ve 


“THE TABLE IN TABLE MEMORY 1S AS FOLLOWS: 


ee TN TBEIO- ©63661 97724 2/Pl 
ans 0*79689 67894 6 E -1 2a. 
id 0*999999925 | FRACTION MASK (1000537 
4 120 @DD BIT MASK 
_ Oe15707 96318 44 E 1 A CPI/2) 
i | Oe°15148 5129 E=3 EO 
“ -264596 37105 99 B 
" -+46737 6661 E-2 D 


eS 260 | APALp-2 NEXT 9DD BIT MASK 


000000 


000001 . 


000002 
000003 


000004 


000005. 


900006 


000007 


000010 


004306 


000000 


000001 


000000 


000000 


000001 


000001 


000001 


000003 


{03000 
002000 
004312 


000003 
103000 


002000 
004306 . 


000001 
142000 
000400 
000000 


000001 


100000 


000000 
000001 


0900000 


000124 — 
o00000c. 


016001 


000003 
103000 


002000 


004306 


900000 


000000 
000000 
000001 


000000 


Q00000 
000400 
016401 


000000 
000000 


017000 


110001 


“TABLE LACATISN Ms 
-SINTBL SEQU !SNCS 


“DATA PAD X:_ 
X SEQU 0 


TEMPX SEQU 1 


"DATA PAD Y: . 
C SEQU 0 


AF SEQU 0 | 
F SEQU 1 

F2 SEQU 1 
F3 $EQU | 


“COME HERE FOR COSINE(CX) wecccccecenscces . 
COS: LDTMA3 DBSSINTBL¥Q “FETCH Pi/2 CA) 


-DB=SINTBL3 LDTMA “FETCH 2/P1_ 


FADD TMs DPX¢CX) "DO X*2/PI1 


FADD; INCTMA “FETCH CG 


FMUL TMs FAS | | "DO X*2/P1 
INCTMAS “ FETCH FRACTION MASK 
BR COMMON “G8 DS SINCX+P1/72) 


“COME HERE FOR SINE(CX)ecescccccccvcccce 
SINt  LDTMAS DB=SINTBL 0" “FETCH 2/P1 


INCTMA “FETCH C 


FMUL TMs DPX(X)3 "DO X*e/PI 
.INCTMA " FETCH FRACTION MASK 


“FETCH @DD BIT MASK 
" SAVE C 


COMMON: FMULS INCTMA; 
DPYCC3<TM 


APAL “Da? « 


OO0LI1 06000 FHMULS Di «EMPKI< TMs “SAVE FRACTIS. “ASK 
000000 INCTMA . "FETCH A 
047005 - | 
010001 


“GH» THE GLORIES GF A FLOATING POINT ANDe«. 
re WE CAN GET THE FRACTIGNAL PART OFA NUMBER. 


. OR 
” WE CAN TEST Td SEE IF THE INTEGER PART OF 
| | " A NUMBER IS ODDee. | | 
d00012 000002 . FAND FMsDPX(TEMPX)3 “GET F = FRAC(2X/PI) 
: 112000 | DPX(TEMPX)<TM * SAVE ODD BIT MASK ¢ 
047505 . | | oe : | 
- 900000 | 
0000!3 oc00002 | | FAND FMsDPXC(TEMPX) 3 "SEE IF I IS ODD 
| 112000 DPX(X)><FM | ” SAVE 2X/PI. 
140504 = 
000000 
“HERE WE PLUNGE AHEAD AND START THE P@LYN@MIALs 
e HSPING THAT WE AREN'T IN THE 
| ‘ SECGND @R FOURTH QUADRENTS | 
CO00!L4 O0000! DD: FMUL DPY(C)sFA3 "DS C#F 
021000 DPYC(F)<FA3 " SAVE F 
020540 FSUB DPX(TEMPX)sFA - " D@ 1e0-F 
134000 , 7 a a 
000015 000001 FMUL DPYCF)sDPYCF)3 | "DG Fx*2 
155000 © FADD ZERG» ZERO ” PUSH I-F SUT 
000050 a 4 | 7 
015000 
“IF I IS @DDs THE FAND WILL PRODUCE 1-0 AS A RESULT. 
- WHICH WE NOW TEST FOReee 
“THIS 3S NOT AN INFINITE LOOP” 
dy , IF I IS @DD» AND WE COME THIS WAY AGAIN. 
THE SECOND TIME WE WILL BE TESTING THE RESULT 
" BF ADDING 0-0 + 0-0 WHICH WILL 
= a ALWAYS BE ZERG 
000016 9o000000. | FMUL TMs DPYCF)3 "DS A¥F | 
| — 900456— BFNE @DD  — “ BRANCH BACK IF I I§ 
000050 | | i a : : 
017000 
“NOW WE ARE INTO THE POLYNOMIAL FOR GOBDecseseece 
000017 oO00000 FMUL FM» DPY(F) > “DO CF * F" 
000000. : 
000050 
011000 | | 
000020 000000 FMUL FMsDPY¢F)3 "DO F**3) 
000000 2. DPYCF2)<FMs * SAVE F**2 
030050 _ INCTMA | " FETCH E 
332001. | 7 | | 
000021 o00000 - FMUL DPYCF2)s.DPY(F2)3 “DG Fxxg 
| ~ 900000  . DPYCAFD <FMs | “ SAVE AF 
FETCH B 


030050 / INCTMA 


“118001 ae oa 


000022 
000023 


000024 


900025 


000026 


000027 


000030 


000031 


000032 


000033 


000034 


000035 


~ 000000 


000000 
140055 
017001 


000001 


142000 
030500 
130000 


000001 


100000 
047055 


0131000 


000001 


112000 
000550 
014001 


000001 


100000 


000000 


010000 


000002 
142000 
000400 


010000 


00001 
113000 


000040 


010000 


000001. 


100000 
000000 


010000 


000001 
111463 
000000 
090000 


000001 
100000 
000000 


000000, 


000000 
000340 
100004 
000000 


ooo001 
100000 


000000 


~ 900000 


FMUL TMsDE YC F2)3 
DPX( TEMPX) <FM3 
INGTMA 


FADD TMs DPX¢€ TEMPX) 3 
FMULS3 
DPYCF3)<FM 


FMUL FMsDPYCF3)3 
DPXCTEMPX)<TM3_ 
FADD | 


_FMUL DPY¢(F3)4sFA3 
FADD FM» DPX(TEMPX)3 
INCTMA | 


FMUL; FADD 


WHERE VE SEE IF MOD<I/242) IS 1 


FMUL FMsFA3 - 
FAND TMsDPXCX) 


FADD FMsDPYCAF)$ FMUL 


FMULS FADD 


FADD FM» FAS 
BFNE NEG 


D@NE: FADD 


DPXCX)<FAs RETURN 


"COME HERE IF WE NEED TS weGaTE 


NEG3 FADD 
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"Dd E * Fx*2 


* . SAVE CF2 
" FETCH D 


"DS B+CF2 


* SAVE Fxx3 


"DO FRR 
"SAVE D. 


"Dg Fe*3 * (B+CF2) 
" Dd D+ EF2 
“* FETCH NEXT @DD BIT 


“WAIT 


OR Oeseceeeee 


"D9 F¥#7#CD+EF2D 


“ SEE IF 1/72 IS ODD 
"DO AF + (BF3+CFS) 
“WAIT 

“DO (AF+BF3+CF5)+(DF7+ 
“ SEE IF WE NEED TS N 
“WAIT 


“STORE ANSWER AND RETU 


THE ANSWER+ oe. 
"UAIT | 


000636 


Merk ae ee 


SYMBGL 


SINTBL 


xX. 
TEMPX 
Cc 
AF 
F 
F2 
F3 | 
CaS. 
SIN 
COMMON 
DD 
DONE 
NEG 


000001 


O51115 


000000 
000000 


QO ERRSRS 


VALUE 


004306 
000000 
oooo0! 
000000 


000000. 
000001. 
000001. 


00000! 
000000 
000005 
000010 
o0col4 
000033 
000035 


ENT 


ENT 


FSUB 
BR 


SEND 


ZERO + FAS 
DONE 
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"0.0 = ANSWER 
" "GQ FINISH 


(INTENTIONALLY BLANK) 
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SECTION lL 
INTRODUCT ION © 


1.1 INTRODUCTION 


APLINK links separate object modules produced by APAL 
together into a single load module for execution by | the AP- 120B- 
hardware or the simulator. 

The user can separately code and goeenoLe a main line 
program and the associated subroutines, and later link them 
together for execution, APLINK serves this DUTPOSe: be per- 
forming the following tasks: 


1. Relocating each object module and assigning. absolute 
- addresses, 


‘2. Linking the modules together by correllating global 
entry symbols defined in one module with external symbols 
referenced in another module. , . 

De Selectively loading modules from program library, 
4. Optionally producing a load map . Showing the layout 
of the load module. | | 


APLINK is written in Fortran IV and requires oOgeeey 
AOK of available nnony in which to operate. 


APLINK 1-1 


INTENTIONALLY BLANK 


_ APLINK 1-2. 


SECTION 3 
OPERATING PROCEDURE 


Program modules are linked interactively via a dialogue 
between the user and APLINK. The user enters a series of com- 
mands which direct the linking process. 

When execution begins, APLINK outputs: 


APLINK 
iia 
“i | 


The "###" is the version number of APLINK. The asterisk 
("*") indicates that the program is ready to accept commands. 
After each user command, an "'*' is typed when that command 
has been completed, and APAL is ready for a new command. An 
illegal command will. cause a "?" to be output. 

To load his relocatable programs and prepare them for 
execution, the user would normetsy: follow the procedure out- 
lined below: 


: 1. Using the "L' (load) Sommand. dead the file or files 
containing the desired main program, required subroutines, and 
library subprograms, if any. If a fatal error occurs during 
this step, the user must reinitialize using the "R' command, 
and repeat this step. 

2. Using the "U'' (undefined) command, check to see if 
any global symbols are still undefined. If nothing is out- 
put from this command, continue to step 3. If any symbols 
are output, it usually means that there was an error in one or 
more of the programs loaded, or that the loading sequence was 
wrong. In these cases, the user should correct the error and 

restart the loading operation from step 1. 

3. Obtain the memory limits of the loaded program and/or 
a loader map, by using the "M" (memory) or "S' (symbols) com- 
mand. 

4. Complete and output the load module by using the "KE" 
(end) or "A'' command. Note the values of HIGH and START as 
well as the possible presence of any remaining undefined sym- 
bols. 
5. Return to the operating system with an "X" (exit) 
command. . | 


The individual APLINK commands are described in the fol- 
lowing sub-sections, and a complete example loading session 
is given in section 3.12. 


The three following abbreviations are used in the fol- 
lowing sub- SeChLONS 


 APLINK 3-1 


Abbreviations Meaning 


filename - A user specified input or out- 
| put file. The "Filename" fol- 
lows whatever naming conventions 
exist for the particular host 
computer operating systems. 


+ | Carriage Return 
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Indicates characters output by 
the program, 


| . The examples given are illustrative only, as file and 
I/O device names will ‘vary from system to system. 


Sel LOAD, "L' 
To load a program module, or a program library enter: 


L+ Me 
_ filename + 


where "filename" is the name of the file containing the 
desired program or library. Example: 


pen Os 
FFT. RB ¥ 
Loads a program from file 
FFT. RB. 
3.2 SYMBOLS, "8" 
To output the global (external and entry) symbols enter: 


Ss ¥ 
filename + 


where "filename" is the name of the file (or I/O device). to 
receive the symbol listing. The output of the loader map is 
as follows: | 

HIGH = aaaaaa 


SYMBOL TABLE | 


SYMBOL VALUE _ 


SSSSSS nnnnnn U 
where: 
agaaaa . | Highest program address so far loaded. 
Normally, the next-program will be loaded 
Starting at location HIGHt+tl1. 
SSSSSS_.. 7 " symbol name 
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nnnnnn 7 symbol value; if undefined, the last 
location loaded which referenced this 
symbol, 


UO . ei present indicates the - nee is as yet 
. undefined. 


An example command: 


SY 

LP: + 
Dumps the loader symbol table onto the line printer. 
3.3 UNDEFINED, "'U"' 


To output to. the console any presently undefined oat 
Symbols enter: 


Uy 
filenamey 


where "filename" is the file to receive the list of un- 
defined symbols. The list format is: 


SSSSSS_ nnnnnn 
where '"'ssssss" is the symbol name and "nnnnnn" is the 
location of the last program instruction which referenced 
the symbol. An example command: 


aU ¥ 
TP 34+ 


Prints the names of any undefined symbols on the teletype. 
3.4 NEXT BASE, "B" 


To specify as. base edaneda: at which to load the next program, 
enter: . | 


BY 
loc + 


where "loc" is the location specified. An example: 


—*B Y 
200 + 


Sets the next location loaded to location 200. 


APLINK 3-3 


3.5 RESET, "R" 


eoctntertrenrnneetentngnene sence an 


TO reset APLINK, enter: 

RY 
This reinitializes the program to its initial state. 
The symbol table is cleared, any previously loaded programs © 


are disregarded, and the next location is set to zero. This 
command must be given following a fatal error. 


3.6 FORCE, "F" 


To force AOGEI RE of a preeres module from a. library, 
enter: . 


FY 
namey 


where "name" is the name of the symbol to be forced. This 
command enters "name" into the symbol table as an external 
symbol. - This will cause the loading of a library program 
which has 'name'’ as an entry symbol. An example: 


+P 
DOTPRD* 


Forces the loading of any program defining symbol 'DOTPRD" 
from any subsequently loaded library file. 


Sal ie 22 o 2 Se 


To get the address of the highest program source memory 
location so far loaded, enter: 


MY 
The information is printed as follows: 
HIGH | = gaaaaa 


where "aaaaaa'’ is the highest address so far loaded, and 
"bbbbbb" if present, is the load module starting address. 


3.8 END, "E" 


To end a load Heda and output the completed load 
module for use’ with APDEBUG, enter: 


EY . 
filename?t 


where "filename" is the name of the file to receive the 
loader output. The output is a "core image" which can be 
loaded by APDEBUG and executed Oy. either the simulator APSIM, 
or the hardware. 
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APLINK outputs the following information to the user 
console: 


HIGH = aaaaaa 


where "aaaaaa" is the highest program address loaded. If 
any symbols were still undefined, APLINK outputs: 


### UNDEFINED SYMBOLS 


where "##F" is the number still undefined. A value of 9 
was used in linking these undefined symbols. 


*E + 
SAVE 


Stores the completed load module into file "SAVE". 


~The "E" (or "A'') command causes links between global 
symbols in the completed load module to be frozen. The load 
module can be output again (with another "E" or "A'') but no 
further links can be added (with an "L"). 

~ To work on another load mode, a reset ("'R") command must 
be given to clear the linker. 


Boo. Hl _END with ASSEMBLY CODE, "A" 


To end a load module and output the completed load module 
as host computer assembly code (for use with APEX), enter: 


Ay 
filenamey+ 


where "filename" is the name of the file to receive the loader 
output. This output is a short host assembly language sub- 
routine, which is the linkage between host computer Fortran 
"CALL's'" and the AP-120B executive. The AP-120B code from the 
load module follows the host subroutine as eeSenay language 
data statements. © 

Information concerning the highest address loaded into, and 
any undefined symbols, are output to.the user console as des- 
cribed above for the "E" command. 


3,10 NUMBER RADIX Ne 


Se 


LO set the radix for numeric input/output to and from the 
user console, enter: 


N+ 
radix+ 


where the radix is either 8 (for octal), 10 (for decimal), or 


16 (for hexadecimal). The default radix for user I/O is set 
to either of these choices at installation. 
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oebh BXEV5 x" 
To exit to the operating system, enter: 
X¥+ 


Note: X does not cause any output. An "E" or "A" must 
be used to output a load module. 
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3.12 AN EXAMPLE LOADING SESSION 


>>RUN APLINK 
APLINK 

REV 1 

*L 

BENCH : RB 
APLIB 

Ko 

/TTO - 
HIGH=000116 


SYMBOL TABLE' 


SYMBOL VALUE 
BENCH 000000 
DIV 000063 


*E 

TEMP 
HIGH=000116 
*X 

STOP 


>> 


The user runs APLINK. He then loads his program, in file 
BENCH:RB. Since Bench uses the scalar divide subroutine, he 
links in the library of AP-120B subroutines, APLIB. APLINK 
extracts from the library any subroutines needed by BENCH, in 


this case DIV. 


The user prints out the loader map, and then 


ends with an "End" command, putting the linked-up code into 


_ file TEMP. 


To debug the program, the user would run APSIM, where he 
could execute the code put into TEMP. 
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Another example loading session. 


RUN APLINK 
APLINK 

REV 1 

oe 

- POLAR 


_ 
APLIB 

#8 

/TTO 
HIGH=000166 


SYMBOL TABLE! 


SYMBOL VALUE | 
POLAR 00000 
SQRT 000133 
ATN2 000023 
ATAN 000035 
DIV 000077 


a 


_ TEMP 


HIGH=000166 
uy,€ 
STOP 


>> 


. The user runs APLINK. He wants to install subroutine 
POLAR into his computer operating system, so that he can 
CALL POLAR from Fortran. The "F" (force) command sets up 
APLINK so that it will load in POLAR from the library APLIB. 
The loader map shows that POLAR used subroutines SQRT (square 
root), ATN2 and ATAN (arc-tangent), and DIV (divide). The 
"A'™ command stores the linked-up code as host assembly language 
in file TEMP. . . . 

The host assembly code in TEMP is assembled by the host 
computer assembler and the resulting relocatable binary saved 
where it can be linked with Fortran programs. 
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INTENTIONALLY BLANK 
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- SECTION 4 
ERROR MESSAGES 


Any deviation from the prescribed command syntax will | 
cause APLINK to output a '?" to the user console. The 
illegal command is ignored, and APLINK outputs a ''*" to indi- 
cate its readiness to accept a new command. 

If a specified "FILENAME" cannot be popes or is other- 
wise unavailable for use the message: 


FILE NOT FOUND!!! 


is outputted and the command is ignored. 

The specific error messages outputted by APLINK are the result 
of loading errors detected during execution of an "L" (load) 
command. There are two classes oF loading errors: 


Be Fatal. Reinitialization of the roads (the ea 
command) is required before loading can continue. 


W - Warning. An advisory message indicating a non- 
error. ; ; 


Any fatal error detected during loading will cause immediate 
termination of the "L" (load) command following the error message. 
If the user attempts to execute! another "L'' command, the program 

will output the message: ; 


RESET!!! 


and ignore the command. After the user reinitializes the loader 
C("R'" command) he must reload any programs loaded up to that point. 


Following are the error messages, along with notes of 
explanation for each: 


F SYMBOL TABLE OVERFLOW 
The loader symbol table is full. The only recourse is to 
recompile APLINK with a longer symbol table size. 


F PROGRAM MEMORY OVERFLOW nnnnnn 

3 An attempt was made to load past the upper limit of Program 
Source Memory. The load module is too large to fit in pro- 
sere DemOty: "nnnnnn" is the memory location involved. 


F OVERWRITE nnnnnn 

‘An attempt was made to avengrite a previously loaded 
program memory location. The loader does not permit any 
given program memory location to be loaded more than once. 
"nnonnnn" is the pSceram aie al een aea involved. 


ae ILLEGAL BLOCK TYPE nnnnnn 
| An illegal relocatable object code b1Obic a was encountered. 
The File specified does not ‘contain legal object code. "nonnnon" . 
is tke illegal block ey RE, as read. from the block header in 
question. : _ 


APLINK 4-1 


MULTIPLE ENTRY 


An $ENTRY symbol having the same name as one already | 
defined was encountered during a load. The name and valu 
of the offending symbol is output to the console: : 


SSSSSS | | nnnnnn 


where "ssssss" is the symbol name and "nnnnnn" the symbol 
value. The loader proceeds by ignoring the latest definition. 


“MISSING OR IMPROPER ENTRY 


The user attempted to put out host assembly code (an "A" command) 
from a load module which either 1) did not have any entry points 
(defined entry global symbols), or 2) the first entry point loaded 
did not have an S-Pad parameter count. | 
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APPENDIX A. 


SUMMARY OF APLINK COMMANDS 


These abbreviations are used: 


Symbol 
+ rs 
filename 


loc 
name 


Command 


“Lt. 
filename y+ 
St 
“filenamey 


Uy 
filenamey 


By 
locy. 


Rt 

Fy 

name+y 

My 

E+ 
filenamey 
AY | 3 
filenamet+ 
Ny 
number + 


XY 


Meaning 

Carriage Return | | 

Name of. a file, as appropriate for the 
host operating system being used. 

A location, in octal or hex as appropriate 
A symbol name, 6 characters or less. . 


Effect 


Load the program in file FILENAME, link 
with previously loaded programs. 


Output ‘the loader symbol table to file 
FILENAME. 


Output any undefined symbols to file 
FILENAME. 


Set APLINK to load the: next program at 
location LOC. 


Reset the loader. 


Force the loading of a program defining symbol. 
Name from any Sus caucHs program libraries 


loaded. 


d Output the, highest program memory location 
used. ; 


End the loading session. Store the resulting 


load module into file FILENAME. 


End the loading session. Output host computer 


assembly code for use with APEX into file 
FILENAME. ; 


Set the Radix for numeric user console I/O 


to either 8, 19, or 16. 


Exit to the operating system. 
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INTENTIONALLY BLANK 
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APPENDIX B . , 
RELOCATABLE OBJECT CODE BLOCK TYPES 


Unlike most relocatable binary, the relocatable Spieet 
code produced by APAL consists of numbers written as decimal 
integer characters. Those were output (and readable) by For- 
tran formatted I/O statements, 

An advantage is that relocatable library files may be 
edited with an ordinary text editor. This makes ‘unneccessary 
the need for a special-purpose Librarian or’ Library File 
Kditor, 

The relocatable object code is Sivided: into a series of 
blocks. .The order in which blocks appear, if each type is 
present, is as follows: (the block type number is in paren- 
thesis). . 


Title Blocks (3) 
Entry Blocks (4) 
Code Blocks (@) 
External Blocks (5) 
End Block (1) 


Op oN 
e ° ° o ° 


An object module contains at least a Title Block and a 
Start/End Block. The presence of one or more of the other block 
types will depend upon eae particular program, 


The first line of each block is a block header, which 
contains Tone seven-digit numbers: 


Block type numbers 

Number of items in the block 
Initial address, if relevant 
Unused - ; 


o -.# ° o 


Bo MR 


In addition, the block header is flagged with '**'" to 
aid in identification of blocks. 

Each block type is uescribed below, in numeric order 
by block type numbers 


B.1 CODE BLOCK (9) 


LINE | CONTENTS : 


an | g count: address | Qxxx 
1 | Bits O-15 Bits 16-31: Bits 32-47 Bits 48-63 
2 ‘ eo rr ! : i - tf 
count tf @ t "! 


Each code line contains a 64-bit piogram source word, 
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B.2 END BLOCK (1) 


LINE . CONTENTS : | 

0 ae 0 0 | Oe 

B.3 TITLE BLOCK (3) 

LINE ss CONTENTS © : 

0. 1 0 O***TITLE 
B.4 ENTRY SYMBOL BLOCK (4) 

LINE | CONTENTS 

O ua = & "3 count e) Q** * 

af name | value : | ® S-Pad parameters 
2 1 ae ea 5 "! 

count . 't . rt 

B.5 EXTERNAL SYMBOL BLOCK (5) 

LINE CONTENTS 

0 2. count 0 O*** 

1 name  iiaank 

2 ? , . tt 

3 ? tt 

count | ne te 


B.6 LiBRARY START BLOCK (6) 


. LINE CONTENTS | 
QO Be | ) fe) | O* ** 


B.7 LIBRARY END BLOCK (7) 


LINE  —sCCONTENTS : 
0 7 7 | 0 Oo | O*** 
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An example relocatable object module, from the Dot Product program. 


| Bede Os 0. #*4TITLE} “Spapie: Bisel 
DOTPR 0. | 
4e le Oe Oe Kee b Ent ble ie 
DSTPR O- = te saan a ae 
Oo De, O« Oe ere 
16384. Qe Oe  a4Be 
16520. O- 06 ABs 
596 Ge 189486 O-« . 
661s 32768 2566 5888« Begun 
8392 403-6 O» 4144-6 
O56 Os 18948- 4096. 
8257. 374536 O+ 48 
16656+ 224. O00 112. 
a ae Goes. D End block 


The Title block contains the title of the program, DOTPR 


The Entry block has the name of the entry point, DOTPR; its 
relative address, 9; and the number of expected S-Pad parameters, 6. 


The Code block contains the 9 AP-120B program words in DOTPR, each 


as four 16-bit quarters of a 64-bit program word. 


The End block tells APLINK that it has reached the end of the 
program. 
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Example output from APLINK produced by an 2a (End) command from 
the Dot Product program. APDBUG would load this output into either 
the simulated AP-120B (APSIM),or the actual hardware, for debugging. 


number of AP-120B program words 


16384 

. oO : 

" 0 | word #1 
48 J . 


ea word #2 


Oo} word #3 


0 | word #4 


661 . 
“32768 
256 | — word #5 


— 403 | 
0 > ~ word #6 


18948 | word #7 
ioe) | 


word #8 


0 word #9 © \ 
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Example host eSuenniy code produced by APLINK from the Dot 
Product program: 


_ ¢TITL DOTPR This is the appropriate host computer. 
«ENT DOTPR assembly code for use with Data 
. e EXTD eAPEX General Corporation Fortran IV 
DITPR : eed + APEX on Nova or Eclipse computers. 
| ae A CALL DOTPR in Fortran ends up 
7 at location "DOTPR" in the Nova, 
beae ae which does a subroutine jump to 
b< APEX, the AP-120B executive. 
a If this is the first CALL of DOTPR, 
‘ aoe then APEX will load the AP-120B 
16520- program words for DOTPR from Nova 
ae -memory into AP-120B Program Memory. 
gan The "6" following the JSR@ .APEX 
Oc is the number of arguements expected 
18948. in the Fortran CALL. ''9'"' is the 
| Be number of AP-120B program words in 
 gos7. DOTPR. "O'" is the re;ative Starting 
29708. . address of DOTPR. 
Os Following these three parameters 
ere is the nine AP-120B program words 
= 32768 in sd a bits at.a time. 
2566« 
S388 «. 
83926 
A036 
06 | | 
A144. For each particular host computer, 
O° the exact form of the host computer 
Os assembly language is different, but 
139486 the content is the same. 
40966 
8257.6 
*28083¢ 
. Oe 
. ASe 
166566 
2246 
Oe 


lide 
«END - 
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INTENTIONALLY BLANK 
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- AP- 120B SUMMARY OF DEBUG COMMANDS © 


Abbreviations used below: 


Symbol 


ats 
loc 
count 
val 
fpn 


mem 
reg. 


Meaning 


Carriage Return - 

An integer location number 

An integer count 

An integer value 

A floating-point number in ‘form accept- 
able to FORTRAN 

The name of-an AP-120B internal memory 
The name of an AP-120B internal register 


Debug types a "*'" when ready for further action. 
A "2?" is typed when a command is not understood. 


A.1. Program Execution Commands 


Bt 
mem +: 
locy+ 
Dy 
LY 


Qy 


count 


S+ 
valt 


I 
valty 
R+ 


loc+ 


Py 


X+ 


Breakpoint. Delete the last breakpoint 
and set a new breakpoint at location LOC 
of memory MEM. MEM must be PS, MD, or TM. 


‘Delete. Delete the current breakpoint 


List. List the current breakpoint 


Set the continue counter to (COUNT). 


Step. If (VAL) is not zero Dre? the 
AP-120B in step mode. 


Initialize. ff. VAL“is sae Zero, reset the 


‘AP-120B before program execution is 


resumed next 


. Run. Begin program execution at Program 


Source location LOC 

Proceed. Begin instruction execution at 
the Program Source location pointed to by 
the AP-120B (PSA) eerogt an Source agdnees) 
Register. 


Exit to the operating system 
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A.2 Register Examination/Modification Commands 


EY 
—regt 


KY 


mem ¥_ 
Loc. 


+ 


Examine register. Print out the contents of 
AP-120B register REG 


Examine memory. Pring out the contents of. 
AP-120B memory MEM, location LOC 
Re-examine the currently open register or 


memory location (the last location examined) 


Examine the next higher sequestial memory location 
of the memory that is currently open 


Examine the next lower sequential memory location 
of the memory that is currently open | 


Floating Point Flag, affects the input/output of 


38-bit wide registers and memory locations. 


~VAL=0: 3 integers (Exponent, High Mantissa, Low Mantissa) 


VAL#O: floating-point 


Program Source field value flag, affects input/output 
of program source memory location. ; 
VAL=0O: 4 integers (the four 16-bit quarters 

of PS) . 
VAL#O: Decode into the 24 instruction word field 
values. ; 


Change. Change the contents of the currently open 
register or memory location to VAL. The format . 
of VAL depends on the width of the current open 
locations as follows: . 


16-bit wide registers: an integer of the current radix. 


38-bit wide registers: 

F=0O; Val+t three integers in the current radix 
VALY thich represent the exponent, high 
VALY mantissa, and low mantissa 


F#@: FPNY a floating point number legal to Fortran 


64-bit wide registers: 


V=0 VAL’ four integers in the current radix 

: VALY which are the four quarters of an AP-120B 
VALY program word . 
VALY © 


V#O: FIELDY FIELD is the name of the instruction 


VAL + ‘field to be changes, VAL is the new 
integer value. . 
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| N¥ Number radix. Set the radix for integer user 
VALY I/O to VAL, which must be 8 (for Be bes ys 10 (for 
: decimal), or 16 (for hexadecimal). , 


O+ Offset. Sets the base address to which Program 
VAL+Y Source Memory addresses are relative (for user I/O). 
Z .  . Zero. Zero out all AP-120B memories and registers. 


A.3. Memor Load/Dump Commands 


Y+ | Yank. Load memory MEM starting at location 
MEM + LOC from an external data FILENAME. 
LOC + MEM can be PS, MD, OR TM. 

filename “ 

Wy Write. Dump MEMOLY MEM starting at location 
~MEM¥Y 

STARTY (START) and ending at location (STOP) to 
 SToPy external data FILENAME. 


_ file name+t MEM can be PS, MD, or TM. 
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A.4. Accessable Functional Units 


AP- 120B Functional Units that may be examined or changed 
using DEBUG: 


Memories: | a Contents: 

PS Program Source Memory 64-bit instruction word 
MD Main Data Memory 38-bit floating-point 
T™ Table Memory | ou WL 

DPX Data Pad X o " 

DPY Data Pad Y f a 

IODEV I/O Devices . - " wei 

SP . S-Pad Registers . 16-bit integer 

SRS Subroutine Return Stack* = UM m 

Registers _ _ — Contents — 

MA Memory Address | 16-bit integer 

TMA  $Table Memory Address n 

DPA Data Pad Address. | es, 

PS A> Program Source Address | as 

SPD S-Pad Destination Address _ woe 

STAT. AP-120B Internal Status Register  " 

DA I/O Divice Address | aN 


SWCH Panel Switch Register oe. 
LGTS Panel Lights Registerr ” 


MDR  . Memory Read Data Buffer* 38-bit floating point 
TMR Table Memory Data Buffer* ke 
MI Memory Input Register* | . 
DPBS . Data Pad Bus* ; as 
INBS Input Bus* ie 


PNBS. . Panel Bus* bot, 16-bit integer 
SPFN =S-Pad Function | a " - 
FLAG. Program flags* " 


SRA - Subroutine Return Stack Address* i | | 
Al Floating Adder Input Reg. #1* 38-bit floating point 
A2 Floating Adder Input Reg. #2* | i 

FA Floating Adder Output* . _ 

Ml Floating Multiplier Input Reg. #1* u 

M2 Floating Multiplier Input Reg. #2* ane 

FM —s- Floating Multiplier Output* “ 


*Accesable only when using the AP-120B Simulator 
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A.5 Program Word Fields 


Fields witnia:- an instruction word that may be examined or 
changed by name; 


Name . eo Program Word Bits 
D : . O°. Ax 
SOP . es a 
SH | 4-5 
SPS . 6-9 
SPD 10-13 
FADD : 14-16 
AL a | 17-19 
A « _ 20-22 
COND (23-26 
DISP | ° 27-31 
DPX 32-33 
DPY- 34-35 
DPBS | 36-38 
XR 39-41. 
VR : 42-44 
XW 45-47 
VW ».2 | 48-50 
FM . Ook 
M1 . 52-53 
“M2 2 8 04-55 | 
MI _ _ 56-57 
MA 58-59 
DPA 60-61 
TMA 62-63 
SOP1 6-9 
SPEC 6-9 
STST . 10-13 
HPNL . 10-13 
SPSA 10-13 
PSEV : — 10-13 
PSOD 10-13 
PS _@ 10-13 
| SEXT 10-13 
FADL 17-19 
ITO 17-19 
LREG 20-22 
| RREG- . 20-22 
[OUT . 20-22 
SNSE : 20-22 
FLAG 20-22 


CONT _ 20-22 
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